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ABSTRACT 


THs. yAgnosTt Te THE DOCL_OF THE 8°04 DISK guasySt 
HE DISK SURFACE i THE DRIVE MECHANICS T 


‘ NOT NEED 

A _DISk NO VITAL INFORMATION 
WRITTEN ON IT IS ESSENTIAL. AFTER A SUCCESSFUL . + ig Me 

NO ERRORS) OF THIS DIAGNOSTIC ASSERTED THAT THE 
DCL IN THE RPOY SUBSYSTEM WORKS SUCCESSFULLY WHILE pols 
ALONE. SYSTEMS ee oT DRIVE TIMING IS LEFT 

OTHER DIAGNOSTICS. THIS IS WITH THE ASSUMPTION THAT Satie 1 
) HAS BEEN RUN SUCCESSFULLY. 
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3.0 


4.0 
4.1 


4.2 


REQUIREMENTS 
EQUIPMENT 

PDP-11 COMPUTER WITH CONS ETYP @ RPOY CISK 
et Reade a nea oe att FBastet SF at a) 
CONTROLLER, @ DISK CONTROL LOGIC (DCL) 3 DEC 

DRIVE, AND ITS APPROPIATE DISK BACK. THE DISK, i: ck HEED 

NOT BE FORMATTED. USED SECTION OF THE DISK SURFACE SHA 

BE GOOD {HO (HOLE ER REE) THES SURFACE FOR THE FOLLOWING zEc Toes 


OD, ml. REE OF ANY HOLES 0 
IRREGULAR TY” BE FORE Rhy DATA ERROR CAN BE ATTRIBUTED TO 
THE LOGIC. 


CYLINDER OO, TRACK 09, SECTOR 00 
CYLINDER 00; OR 2 
EYCINDER 90; TRACK i8; SECTOR 21 
EYLINDER Oi; 7 


T 
€YLINDER 09° TRACK 18: SECTOR 21 
CYLINDER 4i0, TRACK 18. SECTOR 21 


STORAGE 
THIS PROGRAM REQUIRES 16K WORDS OF MEMORY 
PRELIMINARY PROGRAMS 

THIS PROGRAM ASSUMES THAT MAINDEC-11-DZRPS- - <LATEST 
REV) _H@S BEEN RUN WITHOUT ERR 

aN Ty SSUES, THAT MRINDECL|-GERPT- - (LATEST 
LOADING PROCEDURE 

USE STANDARD PROCEDURE FOR LOADING .ABS TAPES 
STARTING PROCEDURE 

CONTROL SWITCH SETTINGS 

SEE SECTION 5.1 

STARTING ADDRESS 

START AT AODRESS 200---FOR NORMAL RUN 


START AT ADDRESS 210---FOR UNIT SELECTION 
START AT ADDRESS 220---FOR NO MANUAL INTERVENTION 
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siete “BORE pus Be BE ree pois oh] CASE_R N. WITH THIS 


TESTING TLL s 
tant IS BOLIERED it HAT 


N THE SYSTEM WILL PE 
r at ar? RE “END PASS” 4 a INTED OUT. 


T RESP a ad GO ON TO THE NEXT HIGHER UNIT 


THAT IS POWERED 


210 START 
ALL SWITCHES MUST BE DOWN FOR_WORST CASE RUN. WITH THIS 
STARTING ADDRESS THE CONSOLE TELETYPE WILL ASK FOR THE UNIT 


UMBER TO BE TESTED. THEN ONLY THAT UNIT WILL BE TESTED 


N 

FOR EACH PASS OF THE PROGRAM 
220 START 

ALL 


THE PROGRAM WILL NOT RUN THOSE TESTS 


MANUAL INTERVENTION. THIS IS RECOMMENDED BNL 


FOR 
DEBUGGING WHERE THE ERROR IS NOT IN A TEST THAY REQUIRES MANUAL 


INTERVENTION 


PROGRAM AND/OR OPERATOR ACTION 


1. 


é. 
3. 
4 


or wm 


LOAD THE PROGRAM INTO MEMORY. 
SET STARTING ADDRESS ON THE SWITCH REGISTER 
PRESS “LOAD ADDRESS”. 


SET “OPERATIONAL SWITCH ae TINGS” (SEE SECTION 5.1) 
WORST CASE IS ALL SWITCHES DOWN 


PRESS “START”. 


FOR_THE FIRST PASS EACH TEST WILL BE ere ED once 

ON THE DRIVES PRESENT OR pone SELECTED BEFO 

PASS” IS PRINTED. THE FIR ~¥ PASS oT te? OPERATOR, 
INTERVENTION IF THE PROGRA tie ee 
MONIT THE SECOND 

EACH TEST FOUR Re ateS Bn ON ence “Daves P PRESENT oR DRIVE 
SELECTED BEFORE “END PASS NTED. 


4 
_ 
J. 


HE 
AND SUBSEQUENT PASSED DO Not NEED ANY OPERATOR INTERVENTION. 


OPERATING PROCEDURE 
OPERATIONAL SWITCH SETTINGS 


SWITCH DEFINITIONS ARE GIVEN IN SECTION 2 “OPERATIONAL 
ot SETTINGS” HOWEVER THE DETAIL DESCRIPTION ARE GIVEN 


SWITCH 15 - 
WHEN THIS SW 





5 - HALT ON 
ITCH I 


ERROR 
S SET, IF THE PROGRAM FINDS AN ERROR 






LOWE R ORIVE 
"ef THE Poubet uNy UNIT RUMBER m ees REGISTER 


R 
SWITCHES MUST GE DOWN FOR WORST CASE RUN. nee THIS STARTING 
ADDRESS NEED 
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210 | THEN THE APPROPIATE INFORMATION WILL BE PRINTED OUT 

S11 BNO THEN. THE PROGRAM WILL, HALT. HIS HALT, PRESSING 
eiz RONTINUE™ HILL CONTINUE TTR THE PROGRAM TIC THE EX 

213 ERROR IS FOUND WHEN THE SAME THING WILL HAPPEN. 


er oe ee 0 ne ee 2 ee 


em ne ee et ee a ee en 









furute a 
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eer 
WHEN THIS S eg IS THE PROGRAM FINDS AN ERROR 
THEN GENERALLY 
EXECUTED Scope” META TEMENT. 3 oan at ae 
THAT “SCOPE™ STATEMENT. THIS LOOPING WILL CONTINUE AS LONG 
N CH IS SET. HOWEVER 


NOTE: SEE SECTION 8.3 





ot a * Sutten oN TEST 
S SET THE PROGRAM WILL BEGIN TO LOO 


g is ks: aw ant FE Pobre 18° tn Tee tetbe 


one 8 ES 1 THE PR mE “aN F Ey PEC fed 
TEST tS 18 SET THIS "SuITCH DURING AN ERROR PRINTOU 
CURING A PROGRAM HALT. 


SWITCH 13 - INHIBIT ERROR TYPEOUTS 
WHEN THIS SWITCH IS SET FURTHER ERROR PRINTOUTS WILL 
CEASE, HOWEVER OP vor er pues SUCH AS “STOP DRIVE x” 







WILL konT NTINUE. eT THE & "ZOTAL NUMBER OF ESRORS 
THIS PASS 0 pi cE 3, RUE, THAT IS, ALTHOUGH 
PRINTOUTS. ne Ri Neen IF THAT PASS’ Fan ERRORS, 






SWITCH 11 - INHIBIT ITERATIONS 
WHEN THIS SWITCH IS SET THE PROGRAM ON SECOND PASS WILL 
ie hee EACH TEST FOUR. TIMES BUT WILL DO EACH TEST 






SWITCH 1 N ERROR 
WHEN THI S SET, IF THE PROGRAM FINDS AN ERROR 
THE “BELL” oR ALA ARM” WILL BE SOUNDED. THIS SWITCH IS USEFUL a 
WHEN SWITCH 11 IS SET ver, INFORMATION IS NEEDED WHEN ANY ERROR 
IS DETECTED. TAKE THE EXAMPLE OF_A PROGRAM LOOPING ON A TEST WITH 
SWITCH 11 SET TO HELP SCOPING. ‘THEN IF THIS SWITCH IS 
SET AND THE BELL OR ALARM SOUNDS IT MEANS THAT THE ERROR 
+9 PRESENT BUT IF THE BE LL OR ALARM STOPS IT MEANS THAT 
THE ERROR IS NOT PRESENT 


SWITCH 9 - LOOP ON 











Fat WILL’ LOOP BACK TO THE LAST 
IF ON: ND T 







THROUGH AN ERROR. IS FOUND IT WILL AGA 







UE NORMALLY WITH THE PROGRAM. E 
IS ENCOUNTERED PRINTOUT WILL TAKE PLACE UNLESS SWITCH 11 
EGUG, STNG A SCOPE, IT IS RECOMMENDED 
TRAT” SWITCH 11 is ALSO SET. 
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$6 SWITCH 8 - LOOP ON TEST IN 
2s7 THIS IS A SPECIAL ee SEY SUITCHES 9 Ty TRU ae 
spe HAVE ONE at diag AND WHEN RES i ee 
ANOTHER MEANING. THIS MEAN TTING OF” shTTeH 
re 2 rey 7 BE DONE WITH SW TCH a IN THE APPROPIATE 
at HIS SW 


0 THEN AL 
27 WILL BE EXECUTED AND THEN TEST 10 WiLL Snr REP er OVER 
a7? ae en eS AGAIN. WHEN THIS Eiit 2% ee HER SWITCHES 
e QO THRU 7 HAVE THE MEAI TS NAME 
IS “ST COMPARES: 

IF SWITCH 8 IS IS SET THEN WHEN A 
esi DATA_ERROR IS DETECTED NO FURTHER COMPARES WILL BE DONE. 
eee FOR EXAMPLE IN A 256 WORD gids IF ALL THE WORDS ARE IN 

ERROR T AFTER ING S$ 

OR A 
WO 

THEN THE NEXT ER IN A_SUB 
288 Aen yy WILL ALSO BE LOST. BUT WITH SWITCH 7, ONLY 
289 THIS GROUP OF DATA ERRORS ARE NOT PRINTED OUT. ANOTHER 
230 EXAMPLE OF SWITCH 8 BEING LOW {s WITH SWITCH &, WHICH 
231 IS “ECC _TEST-COMPARE END RESULT ONLY". THAT IS IF SWITCH 
232 8 IS_NOT SET AND SWITCH & IS SET THEN "ON ECC TESTS (TEST. 
293 120 THRU TEST 134) INSTEAD OF COMPARING CONTENTS OF THE 
24 POSITION REGISTER AND PATTERN REGISTER AFTER EVERY CLOCK, 


33 COMPARES WILL ONLY BE DONE AT THE END OF ALL THE CLOCKS. 


308 
301 NOTE: SEE SECTION 8.3 


304 SWITCH 7 - STOP pls te IF SWO8S IS LOW. 

305 IF SWITCH 8 IS SET AND THIS SWITCH IS ALSO SET THEN THIS 
306 SWITCH GIVES THE TEST NUMBER TO BE LOOPED ON AS INDICATED 
307 IN THE DESCRIPTION OF SWITCH 8. IF ul et 8 IS NOT _SET 
208 AND THIS SWITCH IS SET THEN THE PROGRAM WILL DO AS THE 


NAME INDICATES. FOR EXAMPLE IN A 2S6 WORD BUFFER IF ALL 
THE WORDS ARE IN ERROR THEN AFTER SEEING THE mtg PRINTOUTS 
FOR THE FIRST FEW WORDS THEN SETTING SWITCH 7 WITH SWITCH 8 


ST. IT IS EX NG SET FOR 
A WHILE TO STOP PRINTING ALL THE 256 WORDS WILL SE RESET 
AGAIN TO ENABLE THE PRINTING OF OTHER DATA ERRORS. 
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aS - ete eta tare tu ve yt ss a er LOW 


eeu eames oe @ Is 
S THe ME INDICATES. T FIs" On NDING NG AN ERROR INS 


T T SET BUT WILL ALSO 

Give ALL THE REGISTER CONTENT (EXCEPT “DATA BUFFER™ RHDB). 
SUB-ROUTINE ABSTRACTS 
SEE SECTION 9 “SUBROUTINES”. 
ERRORS 
ERROR PRINTOUTS CONTAIN THE ERROR ADDRESS AND OTHER 
PERTINENT INFORMATION CONCERNING THE PARTICULAR FAILURE 
THIS INFORMATION MAY BE THE CON TENTS OF RELEVANT RPOY 
REGISTERS OR GOOD/RECEIVED DATA. IF THE ERROR "OgCuRRED IN A 
SUBROUTINE, THE ADDRESS OF THE SUBROUTINE CALL IS ALSO 
GIVEN. REFER TO THE PROGRAM LISTING AT THE STATED 
ADDRESS TO DETERMINE THE CAUSE OF THE ERROR. 
RESTRICTIONS 
BEFORE STARTING THE PROGRAM THE OPERATOR MUST HAVE THE 
DRIVE PORT SWITCH LOCKED EITHER ON PORT A OR PORT B BUT 
MUST NEVER LEAVE IT IN THE PROGRAMMABLE STATE. 
MISCELLANEOUS 
EXECUTION TIME 
THE FIRST PASS OF THE PROGRAM WILL TAKE APPROXIMATELY 1 
MINUTES PROVIDED AN OPERATOR IS PRESENT TO CARRY OUT THE 
TYPED INSTRUCTIONS IMMEDIATELY. SUBSEQUENT Passes WILL TAKE 
30 SECONDS WHETHER AN OPERATOR IS THERE OR .N 
STACK POINTER 
THE STACK IS INITIALLY SET TO 1000 
OPERATOR SELECTABLE SCOPE LOOPS 
HERE IS A DETAILED EXPLATNATION | OF HOW THE LOOP ON Ser wise 
BNY TIME oitThe THE PROGRAM Is RUNN ING. 


THE LOOP ON ERROR SWITCH IS SET, THE PROGRAM GOES BAC - 
USUALLY “BREK TO THE BEGINNING OF THE TEST. 
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‘ TABLE 
378 THEN THE PROGRAM WILL LOOP BACK TO THE SELECTED POINT WHEN IT - 
7 COMES TO THE END OF THE TEST UNDER CONSIDERATION. 


3.0 PROGRAM DESCRIPTION 


388 REGISTER BOARD (RG) - 


3% . SEEK AND SEARCH (SS) - 


404 DUAL PORT (DP) - 





= URI SRE p18 ws Ne ne Pe 


371 ~ ply Oa S_TO THE POINT WHERE T AM CAN GO ARE: 


37 1. pe td Tet THE TEST UNDER CONSIDERATION 

373 e. Lop” oN ERROR SWITCH MUST BE SET 

37 3. THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION 
375 F OR DOES NOT OCCUR Wi 


381 AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN \ 
382 NORMAL OPERATION WILL CONTINUE. 


386 9.1 LOGIC DIVISION IN HARDWARE MODULES 


333 . SYNC. DATA BOARD (SN) - 


338 
333 ERROR CORRECTION (EC) - 










& 







ERROR REGISTER 1 STATUS REGISTERS 

MUX FOR REGISTERS GO HANDLING REGISTER 
DECODE COMMAND DECODE EXECUTION OF 
MECH. COMMANDS 







DATA CONTROL Pane Le. TO SERTAL 
SYNC. BYTE DETECT 


SEEK LOGIC SEARCH LOGIC HEADER ee 
HANDLING. 3 








on LOGIC ae REGISTER 2 & 3 

MUX FOR ERROR REG. &€ & 3 LOOK AHEAD 
REG. spl ROUNTER DATA FORMATION 
RING COUNTER. 


DUAL PORT ARBITRATION ATTENTION L 
leg REGISTER MASS BUS REGIS 








Cc 





OG! 
TER 










MACY11 27(732) 17-SEP-76 13:23 PAGE 10 





MAINDEC-11-DERPU-B 
DERPUB.P11 






9.2 DISK SURFACE USAGE 


dwg USED 
wi —— 





,* ou 
=w- 
mam 
©O.D 
aia 
ox 
7 


AD 
T = TEST NUMBER 


0, TO, SO 
T22-W,R, TT23-R, TT24-W,R, TT2S-W,R, TT26-W,R, TT3S-W,R, TT37-W, TTSO-W, TTSi-wW- 


Sl 
Po7en R, TT37-W,R, TTYO-R, TTYI-W,R, TTH2-W,R, TT4Y3-W,R 


0 S21 
Hao he’ TT31-W,R 


C1 so 
tags R, TT31-W,R, TTS3-W,R, TTSH-W,R 


Cl, T18, S2l 
TT31-W 


c2, TO, so 
TT31-W-R 


c2 118, S21 
TT31- 


¢3, 70, SO 
TT31-W,R 


C3, 118, Sel 
TT31-W 


cy 10, ao 
TT31-W 


2 33 AD ADEMHAMO 












c4, T18, S21 
TT31-bi 

cs 10, goo 
TT31-W'R 






,S4 
ety R, TT34-W,R 


cs 18, S21 
TT31- 
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8) 

ee R 
TO T18, S21 
¢7, TO, SO 
TT31-W;R 

C7, T18, $18 

TT31-W 
cs, TO, so 
TT31-W;R 
C8, T18, S2l 
TT31-W 
c9, TO, sO 
TT31-W 
C9, T18, S21 
TT31-W, 'TT32-R 
C10, TO, SO 
TT3i-w,R 
C410, T18, Sel 


TT36-W,R, TTSO-W,R 
THE POLL OMS Rect ION ee EACH TEST +a a7? 
CAN USED AS AN INDEX TO T 


IN DETAIL 


THE LEFT MOST COLUMN IS THE LINE NUMBER uITAIN THE  Pistine 
WHERE THAT ITEM WILL BE FOUND. 
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DOCUMENT . 

dekh dadpddehtebadaletal 
MAINDEC-11-DERPU-B 
KAREEEER REEES 


COPYRIGHT 1974 
DIGITAL Eufeneht “EBePoRATION 
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36 
142 
149 
165 
204 
260 
1197 
1360 
8771 
8813 
9548 
9611 
9679 
972 
9232 
9886 
9933 
10163 
10241 
10256 
10278 
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eno corey 
OPERATIONAL SWITCH SETTINGS 
BASIC DEFINITIONS 
TRAP CATCHER 
STARTING ADDRESS(ES) 
MEMORY MANAGEMENT DEFINITIONS 
COMMON TAGS 
ERROR POINTER TABLE 
REGISTER ADDRESSES 


- REGISTER TEST 


END OF PASS ROUTINE 
SUBROUTINES 

SCOPE HANDLER ROUTINE 

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
TYPE ROUTINE . 
TTY INPUT ROUTINE 

READ AN OCTAL NUMBER FROM THE TTY 

ERROR HANDLER ROUTINE 

ERROR MESSAGE TYPEOUT ROUTINE 

BINARY TO OCTAL (ASCII) AND TYPE 

TRAP DECODER 


TRAP TABLE 


POWER DOWN AND UP ROUTINES - 





DECDOC VER 00.04 
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A 
bs 


KE 
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if 


PALUATT a TtaTtalti) r 


o~-( ).400D- the 


a Het Ow 


Pik 


fu 


fw 


CHG 


ery wer | 
“MULL Give 09.00” it 


rorwo i MiMi MIM IMAI ADIATI MiMi Aisi Ari Ari ai aT alias ia! 


| ed feel eel Sel el 


forururo 


wo 


ufuru 


i 


‘LOtudururon 


O14. Gu lllt 65. 000 SIO UN Gofue-- C.D 


CROP OPO OP Or Cr cr cre 


G Madde 


2 COPYRIGHT (C) 1974 
DIGITAL EQUIPMENT CORP. 
MAYNARD, MASS. 01754 


PROGRA" SY SUB MALLICK 
THIS PROGRAM WAS ASSEMBLED USING THE POP-11 MAINDES SYSMAC 
PACKAGE (MAINDEC-11-DZGRC-A2). 


REFPPFLELEEEESSERSESSSESEESESEERSESFESESESESSE SES ESSEESES ES ODES 
OPERFTIONAL SWITCH SETTINGS 
PEEPOPFEPFRELES ESS ELSEEEESESERESSESEFSESESESESESES SEES ES SSS SESS ES 


3 


tf 


SWITCH JSE 
1s HALT ON ERRO 
14 LOOP ON TEST 
13 INHISIT ERROR TYPEDUTS 
1} INHIBIT ITERATIONS 
10 BELL ON ERRC 
3 LOOP ON EFRO 
3 LOOP ON TEST IN SWR‘7:0> x 
? STOP FURTHER COMPARES IF Suc8 IS Low 
5 TYPE ALL REG. WITH ERPOR IF SWS LOW 


SHEPEALELSAL FLAS SALEAR ASAE LALLA ERR ELELELELARAEEAL SHEER EEELSLELES 
BASIC DEFINITIONS 
SLELFAEEAARAAAERALELERRELEARALERA SEERA RLPLALA DELLS APRARELELLALES 


38 INITIAL SODRESS OF THE STACK POINTER ### 1000 ##2 
49 GENERAL PURPOSE REGISTER DEFINITIONS 

61 PRIORITY LEVEL DEFINITIONS 

7\ “SWITCH REGISTER" SWITCH DEFINITIONS 

38 DATA BIT OEFINITIONS (B8ITOO TO BITS) 


27 BASIC “CPU” TRAP VECTOR ADDRESSES 
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coco coco sy 
tumor (.0 


mowrd 


SEEPERESERSSERAEHEHHAEERSEEREREE ERLE AREER OEE EE EERE EE EES EEE EEE EES 
TRAP CATCHER 
saa nelehaledehaieleiehahalaiaiaisiaisiaiaielaleleiebeieiciieieiieieieieieisieisieieisieisiaisieleiaisieleisieidielei 


145° ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN . “+2, HALT” 
SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
LOCATION C CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
HELEREEERELESEAERE LASER ELE RSE REEL RELELEE REELS RELEASE SEES EEE EE EEE 


STARTING ADORESS(ES) 
RERPERERERELE SEER RLLLE AERA RES EA LEELA REE RESSRAEAEEES SESE LE LEEE SESS 


157 TARTING ADDRESS 200 FOR NORMAL STARTS 
HIS WILL TEST ALL RPOS’S ON THE SYSTEM A SINGLE OPRIVE AT A TI 


STARTING ADDRESS 210 WILL TEST ONLY ONE SPECIFIED DRIVE 
STARTING ADDRESS 220 WILL JUMP OVER THE TESTS REQUIRING AN OPERA 
183s AT THE DRIVE 
EEREERREELEEERESEEEE SESE EERE ER EREREEEREES4EEEEERERSEEES ESE ESEEES 
MEMORY MANAGEMENT DEFINITIONS 
SRSSESSLASFESSSFLAFLRSERAALELSFLSSAESLESPSSSLSES LSSSLELSLSSSLSLESSE 
167 KT11 VECTOR ADDRESS 
171 KT11 STATUS REGISTER ADDRESSES 
i78 KERNAL “I” PAGE DESCRIPTOR REGISTERS 
189 KERNAL "I" PAGE ADDRESS REGISTERS 
200 STAELELELAERARESASAASSLAFASASERELSESSESRSRSHSSLESSSLSSLESSSRSESLLESE 
202 SLERALARALPLERSLSSLA LLL ERRARHAPRAASLLSERHLSRELTAPSEREARLELVLTE 
SERSSLSFLSLAARSLSFESESATERARASLELSARERREFSSSSLALESSLSSASS SLAVS LLE 
COMMON TAGS 
SELSSSFSLSASFSSARELERSLSLLALAREREREASERASALAARSASLASSSALSS SASL LPH 


206 THIS TABLE pug VARIOUS COMMON STORAGE LOCATIONS 
USED IN THE PROGRA 


ess SLLREFASAAFAARRAREALERARARTRATRALAASL RAST HS LSS SARA ARES LALA 


2s 
¢ 
Ss 


cal } 








ee ee ene 2 ae eee = 
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260 


1197 


1369 


ooo 


ELH EELEARAL LEE EERE RLLLE EEE ELALE LEER ESEL EEE RSLELEL ERE LEASE EES ESS 
ERROR POINTER TABLE 
ERRERRE HL EERE AER ALE LEE SEERA LA LESS EAELELE EER EL ELE EEEEER ELSE ESSERE 


262 wus Mo CONTAINS THE INFORMATION FOR EACH ERROR Mag) a OCCy 
Be RMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
OeA TON SITEMS. THIS tw: SMO TATE WHICH ITEM 8 THe TABLE I 
NOTE]: IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC}. 
NOTEe: ACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED as 


268 EM ;;POINTS TO THE ERROR MESSAGE 

DH 3 SBR ENTS TQ THE DATA HEADER 

DT POINTS TO THE DATA 

OF : POINTS TO THE DATA FORMAT 
277 HHERELEE EEL EE LEER LAA ELEA EERE ELE REALL EEL EEREREAE REALE REESE ELE FEE 
977 RERRELERE LALLA A REALS EAERER LEER LELEL ERLE EAERELE ELLE ELLE L EERE 
Pee SHREREEA ARLE LE EEL LEA EAA AREER EEA LA LE RELA LEAS SEE AEE RADE ELE ELSE 


1017 PEREEPESE SALLE LE EER EAE LEE SEES ELS LEE EAEERE EERE EARLS ESSER EELS SEL 
ett treet tri ti ttttttttttiritttrrttttrttitrttrtitiritett ttt tteey 


1192 LLLLALA SLA LALLAALLLELSLLA REALE LAA EAA SL AFALLALALESSALAALASPLLLES 


FLRALARLLLEAALE REA LALALAL LAA ELE RL AAASLAASELAALA FSA LALA LALA LALATS 


REGISTER ADDRESSES 
SELRLEREALLE AS EAE R EAE LARES REEL ERA REL EALL ELSE ALA RAL AERA EEL E EEE EE ES 


FELRARLELELAAL LEER SLALALAFLASLRLLAALL ALFA RAFARALAARARLAALALAFERELES 


REGISTER TEST 
err eritrrttrritiiitttrtirtttttitittrittttitittrttttttet ttt rt ttty 


14793 RLLAERAFLELLELALAALSALAAA FARA TATAA FAA REAL ALA SAARFLAAAARLLALLLEL 


TEST 1 REFERENCE EACH REGISTER 
REFERENCE EACH REGISTER SY A MOVE INSTRUCTION 
REKAAS LARA AE SHALL SEAL AAA EER EER EE RARE SEERA EAR ERE RAR RERELER LEE 


L517 RRRRRRRREREAAAAEER REAR RARAAL EA RALER AREA ER ELAR AERA EASE AREER ERE RE 
TEST @ PARTIAL TEST FOR RHAS FOR UNIT NUMBERS PRESENT 
CHECK THAT RHAS CAN BE CLEARED BY MOVING ALL ONES 
PTT TT Terr TTT eT ee Et Settee ens er teeter er eers eT eet eeeeet 


1537 — RRRERAARAAAAAARRERER ELE R RR RARER ER ER ERR ERRARERE SESE EEEEA ERE SES 
TEST 3 rea fre DRIVES PRESENT USING RHAS AND Se 


NOE VEN 
HEN THE SET BITS IN RHAS WILL sive DRIVES PRESENT 
THE DRIVE TYPE IS CHECKED TO HAVE 2020 OR 24020 AND THEN 
UNITS PRESENT ARE STORED IN A TABLE CALLED ‘UNITS’ 
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743 1657 


755 1665 
753 
254 1709 
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HERRERA RE LERA LEAS ELSE EERE L ERED EEE LELELE LEE LER EEE ES SELES ESSE SS 


STS TR GAMER ROLES 
TEST 4 TYPE SERIOL wa BND DR 
ET APPROPIATE.ATITENTION Teit OF UNIT "OER TEST IN ‘ATT 
RERGERTAND DRIVE TYPE REGISTERS 
Read Sqhish 1 POEs ARO, - 


TO LOOP HER Meer ATTEN 8 BNO THIS TEST NUMBER ON 
SWITCHES O THRU 7 AND Heston 


REAL AAAAALALA REL ALA LEL LALA RAE RELE REL ALL AES ELLA LALLA ALAA LSS LSS 


REREKKAAL ERE EEE AREER EERE LERAERA ELE AE RELL EEE EE EE EEE EA EL SELES 
TEST 5 PROGRAM INTERRUPT 


TN BHCGL INTER IS TESTED BY SETTING RDY AND I 
THIS SHOULD INTERRUPT THROUGH LOCATION 2s4 
THE PROCESSOR PRIORITY IS SET TO 4 
EREREET EEE EEE ELLA AAA E REALE EE EE ERE LALA RE REE ERE EERE EES EEEEERE 


KEKAAK ARLE LE RARE EER EAE AA EE ERE KE EERE EREE ALLELE EAA EEE EEE LESS 
TEST & INTERRUPT AT PROCESSOR AND DISK PRIORITY SAME 


rege sor y Re ORR TY a2 ET AT eS Ay 3 DISK) 
S SET. FLU NBT NTERRUPT 
suassunnsanonsesesessnesoansnssunseetsaouunacenensnranconseass 


REERRELHARAR AAA HA HALE EEE ER EEE EERE EEA EER REAR ERE RARER RELL RA AEE 
TEST 7 PACK ACKNOWLEDGE 


IF STARTING ADDRESS 220 IS USED THIS TEST WILL NOT 


IF _THE PROGRAM WORKS UNDER ACT-11 MONITOR 
THEN THIS TEST IS NOT PERFORMED 


IF _NO_ACT-11 MONITOR IS oh tek. 
THEN THIS TEST IS PERFORMED ONLY ON THE FIRST PASS 
ON SUBSEQUENT PASSES THIS TEST" IS NOT DONE 


ae TESTS THE ACKNOWLEDGE COMMAND=44 
HOS1 BIT #6 


BE PE 


1 BIT 
DRIVE Ts STOPED MOL IS CHECKED TO SE 0 
AND OVA SHOULD BE 

THE DRIVE IS POWERED UP 

VV erg SE o, MOL SHOULD BE 1, DVA SHOULD BE 1 


GO SHOULD 
ALL go ty A gly RHDB, RHLA AND RHCC ARE STORED 





PACK A GE 
Sloe ts REGISTERS SHOULD BE UNCHANGED 








FOe 


a nm em me i ee re ee a ee ee ee ee ee ee eee 
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1915 —_—RHRRHRAA EA LRAA REEL HA KE EERE EERE EEE LEA AES EEL ERE SEL EEEESE SE ERE SS 
1993 rat hte ct ne ee 


TEST 10 SET VV BIT & 
fits tee} fis’) WV IN PUR HOS! INCASE 
actet MONITOR IS PRESENT AND THE PREVIOUS TEST 


THERE. ISA RESET AT THE BEGINING OF THIS TEST 
FOR ERROR RECOVERY ONLY. 


LRLLEELLALA LAL AALAARAERLL EE REAL EE LELALELLARE REL RLLA LS LAL RSLELEE 


co 
Ooo 
won) 


rer 11 NO OPERATION TIRCTION Tra’ 


TEST 11 NO OPERATION FUNCTION TES 
ALL POSSIBLE RECTSTERS ster THEN A™NOP"=0 


1S GIVEN NO_CHANGE 
ALL te ely REGISTERS ARE FILLED WITH ONES THEN A “NOP” 
IS GIVEN NO CHANGE SHOULD HAPPEN 


RLEREKRALHAEAAAARA KALE REL ERA L ERA ELA KALA ALA LAA EE RAL ELLE EAL LEERE 


iésTecleclécleslislislicleslestes] 
+ b+ p< b+ b= b= pe 
WOnNIMUL£COITuH-c 


RERAAR AREER EEE EER A AERA RARE EEE EAE EAE R ARERR EEE EEE EE EEE EES 
TEST 1é@ DRIVE CLEAR 
ALL WRITE BITS OF ALL REGISTERS ARE fJELED 
WITH ONES Pet a tS chen » MCPE , UP 


THEN A DRIVE ¢ 
THEN ALL REGISTERS ARE CHECKED TO HAVE APPROPIAVE VALUE 
RRAK LRA EAE ERE EE EE EKER EEE ER EEE ER ERE EEE EERE REEL EERE AREER 


coa@ 
mr 
tw 


820 
ee: 
823 


HERR RH EEE HELLA E LEAR EERE REE EEA EA RARE EERE EERE EEA ALEL ELLER ES 
TEST 13 py atime ESET 
IF STARTING ADDRESS 220 IS USED THIS TEST WILL MOT SE PE 


IF THE PROGRAM WORKS UNDER ACT-11 MONITOR Y 
THEN THIS TEST 1S NOT PERFORMED 


IF _NO_ACT-11 MONITOR IS PRESENT THEN 
THIS TEST IS PERFORMED ONLY ON THE FIRST PASS 
ON SUSSEQUENT PASSES THIS TEST IS NOT DONE 


THIS TESTS THE READ-IN-PRESET COMMAND 
FIRST THE DRIVE IS POWERED DOWN AND UP IN ORDER TO 
RESET VV-BIT #6 IN RHDS! 

THEN ALL WRITE ars OF ALL REGISTERS ARE FILLED 
WITH ONES EXCEPT GO,CLR, IE. PAT, MCPE, UPE 

ATA FOR DRIVE UNDER’ TESt I6 mabe = 0 


THEN A READ-IN-PRESET COMMAND = 20 IS SIVEN 

THEN ALL REGISTERS ARE TESTED 

ik of Ona BoP? B BE THE aay yet CONTENTS 
HOF SHOULD HAVE 


Byiee. = ~ RECT s 0, Hele 0, RHDS! SHOULD HAVE VV = 1 





ee ee ee ee te ee 
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8S a. ALL OTHER REGISTERS SHOULD BE UNCHANGED 
: 254 RHRRRAAERAAA ALR AR EERE EERE AEE ARES E EEE EEE LEAS REESE EES EERE E EES 







$8 
BP4 2724 SR EELE ERE AER GELS YEE E ERE SLES REESE FES EEE ELE ELEGELELEEAELEEBEES SSS 
BET TEST 14 READ-IN-PRESET 

6 e 2727 THIS TEST T AS THE PREVIOUS TEST EXCEPT 
Es | POAT TESTES REF SECT She"SEs FIRB I 
gss THIS TEST IS HERE BECAUSE IF ACT-11 MONITOR IS PRESENT 










S58 , THEN THE PREV 1OUS TEST WILL NOT BE PERFORMED 
86 THIS TEST S THE READ-IN- T COP 

agg artes ITE BI ser 00.¢ Rie RS ARE FI 

863 ; WITH ONES EXCEPT GO CLR I PAT, NCP uP 

70 FOR DRIVE UNDER = 6 

87 THEN A READ-IN-PRESET COMMAND = 20 IS GIVEN 
873 THEN. ALL REGISTERS ARE T 

874 THE FOLLOWING SHOULD BE aa REGISTER CONTENTS 
875 RHCA > 5 RHDST = SHOULD HAVE 

97 FMT2e = 0, ECI = 0, HCI = 0, RHOS1 SHOULD HAVE vv = 1 
877 ALL oe THER "REGISTERS SHOULD BE UNC NCHANGED 







879 ; 2744 lalalalalahalalalalalalalalalalalainialalalaialalalaialalalaialeialslsialeisislciaiaiainislsislaleinlalainisisisialsisieiel 





881 2872 HEHEHE EAE EEL LALA S LASSE ERASE SEEK EEL E LAER E LAL L ARAL EEA EEEEEEEE 
TEST 15 RECALIBRATE COMMAND 











884 2875 aL POSSIBLE REGISTERS ARE FILLED WITH ONES 
885 THEN A RECALIBRATE = & COMMAND IS GIVEN is Ih 
Bee eA NO REGISTERS SHOULD CHANGE EXCEPT RHCC = 0 ur 
Bee 2879 A LOT LETTE TE i A i 
890 BON7 = RR KKKKAK KARA ELLA AAA AAA AERA REE EEE AERA EARS EAERARE REE E REESE EEE 
891 f TEST 16 RECALIBRATE COMMAND 

892 ALL POSSIBLE REGISTERS ARE FILLED WITH O 

832 THEN A RECALIBRATE =6 COMMAND IS GIVEN 

Bae NO REGISTERS SHOULD CHANGE EXCEPT RHCC=0 

ea BOSS ARAMARK EKER AERA EERE RRR R RARER EERE EER EREAEA EERE RAES 
998 SUMMIT tttiiittttiitittrttittttttitticrtiitttrtti trier rsrce) 
839 TEST 17 UNLOAD COMMAND 






901 | 3213 IF STARTING ADDRESS 220 IS USED THIS TEST WILL NOT BE PE 






902 
903 IF THE PROGRAM WORKS UNDER ACT-11 MONITOR 
$04 _, THEN THIS TEST IS NOT PERFORMED 






$05 
906 IF_NO_ACT-11 MONITOR IS PRESENT 
307 THEN THIS TEST IS PERFORMED ONLY ON THE FIRST PASS 






ON SUBSEQUENT PASSES THIS TST IS NOT DONE 


' 


| MAINDEC=-11-DERPU-8 
| DERFUS. Pt! 


' 


$09 


ee ee ee oe 


MACYI1 27(732) 


ee ee 6 


17-SEP-76 13:23 PAGE 22 





is 
3 


OOD OWUOWOWWw a 
+ 0b bb oe 


—-O0 (DIC UI WtueHO 


C 


a 


pres 


MACY11 27(732) 


17-SEP-76 13:23 PAGE 23 


MAINDEC-11-DERPU-B 


DECDOC VER 00.04 


or yon F peatorers ARE etkteD WITH ONES 


ea and fet en 


NOWLEDGE COMMAND (ALREADY TESTED) 
ETS AWN REDS] 


LELEXLKAL ARLE ALLEL LALA ELLE ALARA LAL LLLALERLEELERLL ALA LELAELE 


JHE EEE EHH ERE Ee 
TEST 20 OFFSET AND RETURN TO CENTER LINE COMMAND 


THIS TESTS TWO C JOFFSET (2)RETURN-TO-CENTER-L 
ALL pees LE REGISTERS ake or rPeD WITH ONES (EXSEPT RHO 
ALL OREe ST BR S one COMPARED ONLY ATA SHOULD SET 
L OTHER REGISTERS SHOULD REMAIN 

SHEN Q RE TURN-TO-CENTER-LINE 1S GIVEN 
ALL REGISTERS ARE COMPARED ONLY ATA SHOULD SET 

AND RHOF SHOULD EL ERR (EXCEPT ct. Wi FMTe2) 
ALL OTHER REGISTERS SHOULD REMAIN’ UNCHAN 
y THE 280 OVE E PROCESS IS REPEATED FOR OFFSET REGISTER 


RELAALRAL AAA ALERAL ERA RELE RAERE RRKERA LALA RE SALE RAL ERE R ER ERE REESE 


EKER RAE ERK IEEE EEE REESE EE BEELER EE EE EEA EERE RARER EERE EE 
TEST 21 OFFSET COMMAND 


THIS TEST WILL ONLY GIVE REPEATED OFFSETS. 


RLEAELRLLERA LEAL AA AALARELEEL LAKE REAAARAAFLAELERELEA ERA ERLE RAELE 


Ce epee ype nees rane ++ “1a eaereememmm mcemapmmaaem 
TEST 22 WRITE/READ HEADER AND DAT 


' at A SEC AND DATA CYLINDER 0, FORMAT 16 BITS PER WOR 


SECTOR 0, KEYS=0, NUMBER OF WORDS 256 WORDS 


THEN READ HEADER AND DATA FOR_ABOVE. 
woe FROM BUFFER AND READ INTO BUFFER ARE FILLED WITH 


C,0,0,0, AND 256 OF 
HE WRITE’ COMMAND IS THEN LOADED INTO THE REGISTERS EXCE 
tH HE GO BIT, AND ALL THE REGISTERS ARE SAVED 
THEN GO TS’GIVEN FOR WRITE HEADER AND DATA 
THEN ALL REGISTERS ARE COMPARED TO CHECK FOR IMPROPER CH 
THEN WRITE FROM BUFFER IS CHECKED TC SEE THAT NOTHING CH 


NOW FOR THE READ COMMAND READ INTO BUFFER IS FILLED 


‘ WITH ALL ONES, COMMAND IS LOADED INTO REGISTERS EXCEPT | 





a SSS SSS SS SSS 
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3926 
4232 


4235 


4242 
4378 


4381 


4387 


4405 


DECDOC VER 00.04 


8S e'cHVEN' Por THE READ Con 


ALL REGISTERS ARE CHECKED FOR IMPROPER CHANGE 
THEN THE READ DATA IS COMPARED. 


RELAALALAALERELERAEFRELERALEREERLERAERERELELLALLERERELELLEL GRE 


EERE HERE EEE EER REE AREER EE REE REE REE EEE EEE 
TEST 23 READ DATA 


THIS TEST READS DATA WRITTEN BY THE PREVIOUS TEST 
THE WRITE FROM BUFFER IS FILLED WITH ALL OS 

T FILLED THEN ALL REGISTERS SAVED 
THEN READ DATA ¢ COMMEND IS VEN 

ALL REGISTERS AR NPARED oro PROPER VALUES 
READ REATa INTO a INTO’ BUFFER IS CHECKED 


TTT TT it Tit itt tit ttt tii tit tttt titi iti tit tt tttt ttt ttt ttt try 


HH HH KEKE EKER EERE AEE E ERE R EERE EE EEE EEE EERE EEE AAAS EE EEE 
TEST 24 WRITE/READ DATA 


THIS TEST GIVES A WRITE pATA COMMAND FRO CYLINDER 0 
TRACK 0, SECTOR 0, KEYS 0, 200 WORDS OF ALL ONES 

THIS SECTOR = FORMATED BY PREVIOUS TEST 

THEN READ DATA COMMAND IS GIVEN FOR 256 WORDS IN 

SAME CYLINDER, TRACK, SECTOR, KEYS 

WRITE FROM BUFFER AND READ INTO BUFFER ARE FILLED WITH 


200 ONES AND S6 leSeSe 
THE WRITE DATA COMMAND IS LOADED EXCEPT GO AND IE 
ALL REGISTERS ARE SAVED AND THEN GO IS GIVEN TO WRITE DA 


THEN ALL REGISTERS ARE COMPARED TO CHECK FOR IMPROPER 
CHANGE, THEN WRITE FROM BUFFER IS CHECKED FOR NO CHANGE 


THEN READ INTO BUFFER IS FILLED WITH 200 OF ZEROS 
as 4 ed Lag WRITE FROM BUFFER IS FILLED WITH 200 ONES 
i ee EXCEPT GO IS LOADED, ALL REGISTERS ARE SAVED 


ALL REGISTERS ARE CHECKED 
READ DATA IS CHECKED 


REKKERALELRE KALE LE KE RLALERAELELE TARE EK ERATE ELERERTERE KLEE ERTAT 
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ta 4716 ar Ae gente ae BOR ee ere 
idee TEST 25 WRITE/READ DATA 
1024 _ 4719 THIS TEST GIVES A WRITE DATA_C rus CYLTOER 0 
ges TRACK Arse Ire KEYS 0, 256 WORD 1252 
1 THIS cf GTOR IS FORMATED BY PREVIOUS 
158 | cae ErEINBER, Tick, SECT BAYER Eo 256 WORDS IN 
ides WRIT cFRON SUPFER R ANd READ ATO BUFFER ARE FILLED WITH 
1031 THE Parte DATA COMMAND IS LOADED EXCEPT GO AND IE 
103 ALL REGISTERS ARE SAVED AND THEN GO IS GIVEN TO WRITE DA 
1934 . 
1035 THEN ALL REGISTERS ARE COMPARED TO CHECK FOR IMPROPER 
103 CHANGE, THEN WRITE FROM BUFFER IS CHECKED FO2 NO CHANGE 
1038 | THEN READ INTO BUFFER IS FILLED WITH 256 OF ZEROS 
1039 WRITE FRON BUFFER IS FILLED WITH 
1041 THE COMMAND EXCEPT GO IS LOADED, ALL REGISTERS ARE SAVED 
1942 GO IS GIVEN 
ie 
104s ALL REGISTERS ARE CHECKED 
1046 READ DATA IS CHECKED 
ime et 4743 KEKLLLHZHRL RAKE RA KAKA LA LAL SKA KL ELK SKSESHRSELAESSERA SEARS KEEE 
1050 5031 REEREKLLLA ALES LEK LLL LE RERE RELA LEA EEREE REEL RE RERER RELL LA EES 
1981 TEST 26 WRITE/READ DATA 
1053 5034 THIS TEST GIVES A WRITE DATA COMMAND FOR CYLINDER 0 
1054 TRACK 0, SECTOR O O W pS OF O52525 
105s THIS SECTOR IS FORMATED BY PREVIOUS TEST 
1056 THEN READ DATA CONMIAND _ 1S GIVEN FOR 256 WORDS IN 
1957 SAME CYLINDER, TRACK, SECTOR, KEYS 
10 : WRITE FROM BUFFER Nb READ Faro BUFFER ARE FILLED WITH 
1960 So40 200 OF OS2525 AND S6 OF 377 
1061 THE WRITE DATA COMMAND IS LOADED EXCEPT GO AND IE 
106 ALL REGISTERS ARE SAVED AND THEN GO IS TO WRITE DATI 
1064 
1065 THEN ALL REGISTERS ARE COMPARED TO CHECK FOR IMPROPER 
1066 CHANGE, THEN WRITE FROM BUFFER IS CHECKED FOR NO CHANGE 
1068 THEN READ INTO BUFFER IS FILLED WITH 200 IF ZEROS 
1069 AND S& ALL ONES. WRITE FROM BUFFER IS FILLED WITH 200 
1970 WORDS OF 52525 AND 56 WORDS OF 
1071 THE COMMAND EXCEPT GO IS LOADED, ALL REGISTERS ARE SAVED 
itre GO IS GIVEN 
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i578 OLL REGISTER ARE CHECKED 
13 READ a } FE 8 CKE | 
cs 5958 SSAPAFLELSLSSRSELSSSELSER* SESSKAFSSLAS RELFSSESSSFSSSSSSSSLL4S4S44 
583 53693 RESESSRLASAAHELELERSRARLLS SSS SLA SLE SELES SS SESS $44 44444444444444 
os TEST 27 WRITE/READ DATA USING UNISUS B 
a $372 THIS TEST USES UNTSUS 8 IF CONNECTED TO THE RH 
57 IF UNISUS 8 IS N CONNECTED THEN THIS TEST I5 NOT PERFC 
588 THIS TEST GIVES : ‘Rite SATA COMMAND FOR CYLINDER 
=35 TRACK 0, SECTOR 0, KEYS 0, 200 wo 3530 
536 THIS SECTOR s FORMATED gy PREVIOUS TEST 
53} THEN READ DATA COMMAND IS VEN FOR 256 WORDS IN 
592 SAME CYLINDER, TRACK seers 
533 THESE COMMANDS USE UNTBUS B ORD 
33 WRITE FROM BUFFER AND READ INTO BUFFER ARE FILLED WITH 
$s 200 OF 952525 AND S& OF 377 
rt THE WRITE DATA COMMAND IS LOADED EXCEPT GO. AND IE 
x ALL REGISTERS ARE SAVED AND THEN GO IS GIVEN TO WRITE DA 
35 
56 THEN ALL REGISTERS ARE COMPARED TO CHECK FOR I ER 
B} CHANGE, THEN WRITE FROM SUFFER IS CHECKED FOR N}-CHANGE 
53 THEN READ INTO SUFFER 1§ FILLED WITH 200 IF ZEROS 
55 ANS so. eu aot WRITE F Ror SUFFER IS FILLED WITH 200 
os WORDS OF S2525 = ang RDS 0 
a THe Gothen Seas 3 4 LOADED, ALL REGISTERS ARE SAVED 


ALL REGISTER ARE CHECKED 
READ DATA IS CHECKED 


53993 eres esi itrititrttttertittitittsrtttttitttttrtttttttittrettsry 


$75! SEATSEHALERSLRALAAAAAASAREAA RAL HRA SAPAREERSSASSRLESRERRSA“RELE 
TEST 30 IMPLIED SEARCH 


5754 ONLY NEW ADDITION IN THIS TEST IS AN IMPLIED SEARCH 
page HERDER AND DATA IS GIVEN FOR MORE THAN ONE SECTO 


WRITE HEADER AND DATA CYLINDER O, FORMAT 16 SITS PER WOR 
TRACK, 0 SECTOR 0, KEYS=0, NU NUMBER OF WORDS 


L000 NIIP On Gotu C .000~30" 


E DH @ 1 ONLY 
WRITE FROM BUFFER AND READ INTO BUFFER ARE FILLED W 


AND 256 OF 6 10999,1 ND 2 OF | 
COMMAND IS THEN L ADED. tN OH” THE REGISTERS EXCE 
THE GO BIT, AND ALL THE RESTSTERS ARE SAVED 


THEN GO IS'GIVEN FOR WRITE HEADER A BATA 
THEN ALL REGISTERS ARE COMPARED TO CHECK FOR IMPROPER cH 


0 02 2 02 02 b= 8 0 + = 8 Od 2 8 bo Ot bo 0 Bh +e 8h 2-8 bh 2d 8h 8h = 8 ob 2b +b hp ope he 


De ey ed ed ed rd ed ld Od ed ee ee ed dd ed ee ed ae] ae ae) ae | 


re en — servant & cat “66 -COOCKH 


C000 NIN £ Oomue 
= 
mn 
Ll 
— 
-- 


a ee er One a ee me oe ree ee rs ee ne me ee ew ee me ee -  e -e enree _———4 
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THEN WRITE FROM BUFFER IS CHECKED TO SEE THAT NOTHING CH 


0+ <0 pp 
GIGIGS 
UNG 


TOTNES 6 ee ee 
At tae ie “SOULS Gifu Fetritiiest ig 


NOW FOR THE READ COMMAND REQD INTO BUFFER IS FILLED 


ui ITH 307 WeITE | FROM BUFFER IS FILLED WITH 10909. 1 1 
4 OF ZEROS C on RMAND 18 ee INTO REGISTERS to sees 
eo 1S Ae HE ENED athe Rede ERNE agg WORDS 


pub REGISTERS ARE CHECKED FOR ! . CHANGE 
HEN THE READ DATA 15 “OMPARED 


$780 SLRELEARERAAAARLEL LALA AALAT SHAS AASAALALALSLAL SLA LALA SLA LSS FASS 


6134 HEFELELESLFSSSERSESSESESE SESS . < eLKLASRARSER ERR AESESS SESE E SLES ES 
TEST 31 IMPLIED SEEK 


_ TOCYLIROER 8 MRITEREAGER Bar eS EP EN FoR sore 
w 


uw 
£ 


WRITE HEADER AND DATA CYLINOER 9 FORMAT 16 SITS PER WOR 

TRACK 18, SECTOR 21, KEYS=0, NUMBER OF WORDS 266 WORDS 
4 HEADER, 256 DATA=1125 - "HEADER 2 DATA = 2000 

THEN READ’ HEADER AND DATA FOR OR REQVE TRACK : SECTOR 9, 


MLE ER Be Dee eg Tg Bree ie Ce MEE 
tHe WATTE' COMMA COMMAND #5 °F THEN Pbabeoe tafe ta tHe REGISTERS EXCE 


E GO BIT, AND ALL THE REGISTERS ARE SAVED 
THEN GO IS’GIVEN FOR WRITE HEADER AND DATA 


THEN ALL_REGISTERS ARE COMPARED TO CHECK FOR IMPROPER CH 
THEN WRITE FROM BUFFER IS CHECKED TO SEE THAT NOTHING CH 


NOW FOR READ _ COMMAND READ INTO BUFFER IS FILLED 
WITH LL WRITE FROM BUFFER IS LOADED WITH 

tool O Oat 2 OF 2000,254 OF ZEROS COMMAND-IS LOADED 
INTO aoe tao Re EXCEPT GO AND Ie ALL REGISTERS SAVED 

GO IS GIVEN FOR THE READ COMMAND 


ALL REGISTERS ARE CHECKED FOR IMPROPER CHANGE 
THEN THE READ DATA IS COMPARED. 


6165 FLAKAAALRARAAALELARERALLERASLALEAARTAARATARTLARERERRTRTATRTTRTTTE 


6524 peter ttt ttt eee tier ttttttttttttitttttrtrttttttititttrtitrttete. 
TEST 32 SEEK TEST 


+ b+ b= 2 b= Bs 0 & 2 2 0 = 2 0-2 2 ho bo B= ho Bs 2 2 0-2 2 + 2 0-2 bs bo 2 0 ~0 0-0 -2 F200 Be Bo b= b= B= B22 B00 B-* Bs ho pp pe 


+ + 0+ 0+ 0-2 b= b= b= & a bs be 00 = 2 hs § 0 b 0 bs Fh + = 00 = 2 b- 2 0 2 B= F-80020 hos he Fh ob -* O< b- ab 0 Pho bo 


PEO FOr C0) BorUT eR CoLDeD GEPUT e oUr Coe dO 
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0 0-2 b+ bb = 0-2 > B= b= b> b+ 0-2 = = bo b= ho hh pepe 
RAE WhO Gwe GO LiatOe Coote 


MAINDEC-11-DERPU-B 
$27 
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7135 


7138 


7383 


7386 
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THIS TEST GETS THE HEADS OUT TO CYLINDER 10 NOT BY ONE 
SEEK BU By - N IMPLIED SEEKS ONE CYLINDER AT A TIME 


THIS TEST STARTS WITH A one TE ) REC {ReATE 
TOP ESL STDS AO ® nat RDS LAE 
#21 TRACK #18 IT RITES WORD ng THERE ey GETTING 
THE HEAD TO CYLINDER 1 THEN 4 WRITES 266 WORDS ON 
A ae SECTOR #21 TRACK #18 THERE BY GETTING 


THe He pos 13.6 LINDER 2 ( 
THIS IS gPERTED 10 TIMES GETTING THE _ 


THEN A SEEK COMMAND IS GIVEN TO CYLINDER 0 
AND DATA ALREADY WRITTEN IS CHECKED 


HEEKRLER ALAR ELAR A LEE LE REAL ALARA ALA ELA L AS LARA LEAR ELAR ERLE EES 


ZEB HHHHZH EHH HEHEHE HEATER ERR EEE 
TEST 33 SEEK TEST 


THIS TEST DEPENDS ON HEADER AND DATA WRITTEN SY THE 
SOT YaOeR pest. AT THIS POINT THE HEADS ARE ON 


ALL a -~ SAVED 
A SEEK IS GIVEN TO Ci-INDER 9 
ALL REGISTER a BRE C.JECKED FOR IMPROPER CHANGE 
DATA WRITTEN ON EYLINOER 9 IS CHECKED 
PITTI TTT Titi iter rir ertrrtirrerrtrirtrtttrtttttrrr ttt ete. 


HERE REALE RARE LEAR AL EAL RAE EEA KANE REL AEE RARE AE EAR EEL RA LEAL EE EES 
TEST 34 WRITE CHECK HEADER AND DATA 


WRITE CHECK HEADER AND DATA CYLINDER S FORMAT 16 SITS PE 
coneistNe Grn 4, KEYS O, NUMBER OF WORDS 266 

10 WORDS OF 12344 (6 BITS FOR CYL, S FOR TRACK, S FOR SE 
i WORDS OF 1777 

10 WORDS OF 0 

ip WORDS OF OS2525 

10 WORDS OF 125252 

16 WORDS OF Lee? ROTATING ZERO (EG 177776, 177775). 

16. WOROS OF LEFT ROTATING ONE (EG 1,2,4, 10) 

174 WORDS OF 377 

4 WORDS OF HEADER 

2 WORDS OF 12345 


ay THE ABOVE DATA IS WRITTEN BY A WRITE HEADER AND 
DATA COMMAND 

CHECK _FOR NO ERRORS 

ran" : My. ABOVE ahene IS READ BY A READ HEADER AND DATA 

THEN THE ABOVE WRITE CHECK HEADER AND DATA IS GIVEN 
HEHE LEER RERRSRRRRARRER EERE RERRERRRRRARARERRAR RAR ERA RAR RRLERAS 





G03 


17-SEP-76 13:23 PAGE 32 


MACYL1 27(732) 





24) 


; af 


me a ee eee ee 


ee ee a eee 


ee SRN eo te | 


MAINDEC-11-DERPU-8 
SEAUB FLL 





MACYL1 27(732) 17-SEP-76 13:23 PAGE 33 


MAINDEC-11-DERPU-B DECDOC VER 00.04 
7843 KEELE EERE EEL EEE EEE ERE R ER DEEL EL EEE DL EEEFL EF EE EL FEL ERIC LESSEE SS 
TEST 35 WRITE CHECK DAT 
THE DATA FOR THIS TEST IS WRITTEN ON DI I0us TE 


WRITE CHECK DATA a INDER 5, FORMAT 16 BIT PER WORDS 
cone a SECTOR 4, KEYS 0, NUMBER OF WORDS 258 


10 WORDS OF rome (6 BITS FOR CYL, S FOR TRACK, 5 FOR SE 


1 252 
16 WORDS OF LEFT ROTATING ZERO (£G177776, 177775) 
16 WORDS OF LEFT ROTATING ONE (EG 1,2,4,10) 

i DS OF 377 


74 WOR 
WORDS OF 12345 


FIRST THE ABOVE DATA IS FILLED INTO WRITE FROM BUFFER 
THEN THE ABOVE WRITE CHECK DATA IS GIVEN 
HEHE EERE EER EERE ERR ERR EERE EER REE EEE EE EEE 


8068 HELE FLESKEAALRALAE ALA LAA ELAEEHSLELELE LAER AE KEL EREAELERSLESZEE 
TEST 36 WRITE CHECK DATA USING UNIBUS 
THIS TEST USES UNIBUS B- IF CONNECTED TO THE RH 
IF UNIBUS B IS NOT CONNECTED THEN THIS TEST IS NOT PERF 
DATA FOR THIS TEST IS WRITTEN ON DISK BY PREVIOUS re 
WRITE CHECK DATA CYLINDER S, FORMAT 16 PER WORDS 
TRACK 7, SECTOR 4, KEYS 0, NUMBER OF WORDS 259 
CONSISTING OF 
WORDS OF 12344 (6 BITS FOR CYL, 5 FOR TRACK, 5 FOR SE 
10 HORDS OF 177777 


ORD OF 125252 
_18-WORDS OF LEFT ROTATING ZERO (5617776 177775) 
16 WORDS OF LEFT ROTATING ONE (EG 1,2,4,10) 
174 WORDS OF 377 
2 WORDS OF 12345 


808s 


FIRST _THE SOE OD DATA IS eet INTO WRITE FROM BUFFER 
THEN THE ABOVE WRITE CHECK DATA IS GIVEN 
REAR ERE ELLER AA EAE REE EAE EERE EERE EERE ER AE ERE REE EERE EERE REESE 


8310 SSuaUEUORORDERDOREODUD IRE TENSEEDRRERNDNSRRURRGNREDRORADNEDS 
TEST 37 WRITE PROTECT BUTTON 
IF STARTING ADDRESS 220 IS USED THIS TEST WILL NOT BE PE 


IF _THE PROGRAM WORKS UNDER ACT-11 MONITOR 
THEN THIS TEST IS NOT PERFORMED 


IF NO ACT-11 MONITOR IS PRESENT 
THEN THIS TEST IS PERFORMED ONLY ON THE FIRST PASS 


i | 
- 
a 
es LP th 


y 
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ON SUBSEQUENT PASSES THIS TEST IS NOT DONE 


WRITE FROM BUFFER IS FILLED WITH ALL ONES AND 
rape: » TRACK O, CYLINDER O IS FILLED WITH 


EF crens ARE SAVED THEN WRITE LOCK BUTTON IS 


Bir hsrabtatie sitter H $77 AND A URITE IS 
FE tOR Pats K 0, CYL 


A rere ee Re TO SE INDER 0 70. WORDS 


THE SAME SECT OR RTS READ. AND DATA COMPARED TO SEE 
THAT NOTHI SOT DESTROYED (READ DATA SHOULD BE ALL 
ONES AND _NCT 3 


THEN WRITE LOCK BUTTON IS PRESSED TO UNLOCK 
WRITE LOCKS AND ALL REGISTERS ARE COMPARED 


8335 KXKKKLERELLEEKELEL ELE EARLE AELRALEELELLERERELELERRER EERE RELEL 


8724 HXHEKLALLKELALEREL ALLE RE EE LEEK EEL ERE LALE REE REL ERE LAE RLERLEREEE 
HAFLER LERE AL ERE LE LE RELA KLERE ELE REE RE RALE REE EL ELA RAE REE REERE 


TEST 40 END OF DRIVE + 

8728 THIS IS THE END OF TEST FOR ONE DRIVE xf =. “| 

F THERE ARE MORE DRIVES THEN THE PRO \). 
JUMPS TO TEST 5 FOR NEXT D S 


R IV 
END PASS IS REACHED ONLY AFTER ALL DRIVES ARE COMPLETE 


8733 HKARALELARELEKLEEE ERA LRA RELALELEA LALLA RL ERE RAL EAREALERAERA ALLE 


8769 RERLALEKLE KLE RAE RE LEAL RARE RA RARE RAE AAA KAZAA RA ERALAAR ERA RLA ELE 


KRARKLALEKELELELELERAEAALKLLE RATA KLE RA RRELALEAE ARAL REAL AE ERERERES 


8771 END OF PASS ROUTINE 
KERARKA EAR EEE EKA EERE ARE EEE ERE ELLE EAE AEEREEE EEE AEE EERE RES 


8773 Tere THE PASS NUMBER (S$PASS) 
TYPE “END PASS #XXXXX" 


“E 
IF THERES A MONITOR GO T 


iene XXXXX IS A DECIMAL NUMBER) 


IF THERE ISN'T JUMP TO TSTi 
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RRAAAELAARLAEL ARAL EE RRA E AERA LE AEAERRALE RERLE REEL RELEELELERAELEEE 
TYPE ROUTINE 


HHRLERE LEE LE RELA REL ERE EERE E REE EERE EERE EER EAE LAE RE REL ER REELS 


9681 


9724 


ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O 8 
THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE 
NOTE1: S$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CH 
NOTE@: S$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED 
NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


CALL: 
1) USING A TRAP INSTRUCTION Be 
TYPE ,MESADR ;;MESADR IS FIRST ADDRESS OF AN 


TYPE 
MESADR 


2) USING A JSR INSTRUCTION 
MOV PS,-(SP) ;;PUSH PROCESSOR STATUS WORD ON 
JSR PC, STYPE ;;CALL_TYPE ROUTINE 
MESADDR ;;FIRST ADRESS OF MESSAGE 


RREKLLALERAAEL RAL RATA RLELLELE RELA LLAAEERAALE RAZA LE RARER RLEEE 


KXHALLKRAKALA RAKE RAR ALLELE RK ARAK EEL LALLA E RAL LE EERE RE LRAE RRA EL ALES 


9726 TTY INPUT ROUTINE 
FHKE EERE RHEE EEE AERA AEA RAE EERE EEE EEE EERE REE E AREER EEE EES 


9735 


9752 


9774 


9794 





TK_INITIALIZE ROUTINE 
THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
a5 (UP THE INTERRUPT VECTOR AND TURN ON THE KEYSOARD INTERRUPT 


JSR PC, STKINT 
RETURN 


TK sen ROUTINE 
THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 


HH EK AKA EKER EAE KE AEE A HARARE AK AA RAKE AREER EERE EERE SERA ERRELERS 
lg ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


ROCHR ;; INPUT A SINGLE CHARACTER FROM 
RETURN HERE ;;CHARACTER IS ON THE STACK 


KEKE HHH K EAE RE REA AER EEE EEK EAA A AA AR REAR EERE EEE E EEE EERE 
wis ROUTINE WILL INPUT A STRING FROM THE TTY 


RDLIN ;; INPUT A STRING FROM THE TTY 
RETURN HERE ;;ADORESS OF FIRST CHARACTER WIL 
;; TERMINATOR WILL BE A BYTE OF A 
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1438 MAINDEC-11-DERPU-B DECDOC VER 00.04 
faut 9830 HAKKAR AALAAK AREA RAL LAR ERA LEAL SLE AAA LEEL ALLA KALA LALLA LARK FSS 
1442 t : SRAKRALEAE AHL KARHAL REALE A ALAA EERE EARL ARE KE RL AAREAE RLS LERERALAAERSE 
1443 9832 READ AN OCTAL NUMBER FROM THE T 
iaue RAHA LKARA LA RLEREL EA RRA LRA LRA LALA LALLA ALA KELLER E LAARAAAAELEAALEZKE 
1446 is ae 9834 IH S ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
1448 oie INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
1449 .- OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A "?" WILL SE TYPE 
1450 FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUS 

1451 I HEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RE 
1453 * RDOCT ;;READ AN OCTAL NUMBER 
1454 RETURN HERE 3;LOM ORDER BITS ARE ON TOP OF T 
1aes HIGH ORDER BITS ARE IN SHIOCT 
4 : . 9984 LKLHAALKARLAKA LEAL RARE REA LEA ALELE HL AERA REALE LLRELLA RARER AAASSESE 
14s3 KREKKLA LAA LEA ALK ALAA HAL KALLA LE KEK LL ASE AA RARER LA LE RE ESRERSE ALES EE 
1460 9886 ERROR HANDLER ROUTINE 
jugs KAKLKEK EKA RARE KRALL KAKA LE KALE AAARA RAE LASEK KALA E RRA REALE SERELELES 
1463 re 9ggg THIS ROUTINE it INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
i464 R ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
1465 BND” Go of ee ERRT YP ON ERR 
1465 THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

1467 SWiS=1 HALT ON 

1468 Swi3=1 INHIBIT ERROR TYPEOUTS 

1469 SWi0=1 BELL ON ERROR 

470 SW a9-1 LOOP ON ERROR 

1471 CALL 

1aze . _ ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
1474 BEL E KES ER SL REL EAE ELE EEE AER SEER LEE S SER LAE FEELS SERRE ELE ESE SLRS SERS 
1475. 9933 ERROR MESSAGE TYPEOUT ROUTINE 

138 KALLA ALLA AAAS SAAS RSA SH LARA ERE LSA AAAS SLAEAERERAAELE FESR AHAELERES 

1478 9934 THIS ROUTINE USES THE “ITEM CONTROL BYTE” (SITEMB) TO DETERMINE 
1479 ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE 
1480 AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
1381 IT IS A COPY OF THE SERRTYP SUBROUTINE FROM SYSMAC. 
- 1483 9938 WITH ONLY MINOR CHANGES 

1484 FIRST IF SWITCH 6 IS SET AND SWITCH 8 RESET THEN 
1495 eas ALL REGISTER CONTENTS WILL BE TYPED BEFOR REPORTING THE ERROR 
1496 . SECOND IF THE CURRENT ERROR HAS THE SAME ITEM NUMBER 

1487 AS THE PREVIOUS ERROR THEN ONLY THE DATA WILL BE TYPED 

1488 AND NOT THE ERROR MESSAGE AND HEADER. 






03. 
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ides LOLSS —«-_— EHH HHH HHH HALLE ELLE LAK RAE KK E SERA EEA EREE SEA LESSER ELE SESS 
14 eee tte t ttt tt ttt ttt ttt iti tittitittttttittttttittttritttttitte 
1494 FHARF EERE LA LES LEE EERE EERE FER ELE LES EEE EEE EEL EL EE LE LES LARS SEF SES 








1496 JE EHEHE HHH HEHE EEE EEE 
2497 10163 BINARY TO OCTAL (ASCII) AND 
1498 KERR REE RETR EE EEA AAAI EE EE SEE 










1500 10165 THIS ROUTINE IS USED TO One A 16-BIT SINARY NUMBER TO A E-DIG 
1501 OCTAL (ASCII) NUMBER AND T 

1295 we HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS 
1504 MOV NUM, -( SP) ;;NUMBER TO BE TYPED 

i505 TYPOS ;;CALL_FOR TYPEOUT 

1506 sat -BYTE N ;;N=1 TO & FOR NUMBER OF DIGITS 
1507 BYTE MM ;;M=1 OR O 

iS08 ; vil fe LEADING ZEROS 
tat =SUPPRESS LEADING ZER 









i811 $TYPON----ENTER HERE TO TYPE OUT WITH = SAME PARAMETERS AS THE 
1518 STYPOS OR $TYPOC 

i513 CALL: 

1514 MOY NUM, - (SP) ;;NUMBER TO BE TYPED 

1515 TYPON ::CALL FOR TYPEOUT 

1517 STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

1519 “MOV NUM, -(SP) ;;NUMBER TO BE TYPED 

1526 TYPOC ::CALL FOR TYPEOUT 

1522 10239 ERERK EEK ERLE EERE EEE EL EERE EEE EE EERE EERE ER EERE EERE EEA EERE RE 






1524 | REKRK EERE KEKE EEE AEE REE EERE ERE EERE EERE RARE ERE EEE AKER REESE EAE ERE 
1525 10241 TRAP DECODER 
1526 Mitrtttititirttiirtiti treet etttr eer tit ttt ier 





1527 
. 1528 10243 THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTIO 
1529 QND_USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING BooR 







1530 OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
GO TO THAT ROUTINE. 
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iss4 

iss FA FREFLSELESE SSE ESSE LAE ESSFESEL ELSES SSSESE SSS SS FSS * SFFSSESSSSSASSS SS 

1535 10256 TRAP TABLE 

is3 FREERESESSSASPHSSSLESSSLE SLES SSSSSELEFLSFL SSF SSS ALFSASELASESS- $4 

1695 

Sil t mn. 
i839 C258 THIS TABLE CONTAINS THE STARTING AOORESSES OF THE SOUTINES CALLE 
séa4 BY THE “TRAP” INSTRUCTION. 

iE <4) - 

iS4e LO2e7eé RELSFSSHESSSSSSSLSSSSSESESFLESSSSLESELSSESSESFSSSLSSSFEFSEL ISAS ASSES 
2543 

Lise FHPSSSSSESSSSESSSESSSSESSSERSSFSSSSSSSESE SASS FSLSSA LAPSE SES SF LSESSE 

seus 10273 © POWER DOWN AND UP ROUTINES 

i546 FHRESLSSESSESSSS SS FSSSSSRALHSSESSELESSSSESSERSLS ASE SESS SLASHES FLED 

=e° 

— 103:8 REEF EHSASSS ES ES SEPSSELSSS HES SSPE ESE SSSELSSE SESE SESE SESESS 444444 
Lies HSEPFEEEEREF REESE ESE S SEF SEE SEL ELE SEE SELLELEFHSESSSESSES- - 4444454 
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. TITLE ‘Hapnoec- -11-DERPU-S 
3; #COPYRIGH 7s 
S*OIGITAL "EOUYPMENt CORP. 

i #HAYNARD MASS. 01754 


| SPROGRAN BY SUB MALLICK 


SSTHIS PROGRAM WAS ASSEMBLED USING THE eet MAINDEC SYSMAC 
; #PRCKAGE (MAINDEC=11-DZGAC-81),AUG 29,1975. 


PENS ARNE SENS SRNE SRN ERNE BNESRENE SENS SENE SENS 

LRN ARNE ARNG CRNE SENG SENS SENG SENG SENG RNE RNS 

aN: SENS SENG /RNG RNG /*NE SRN SRN SRN ERNE RN ERNE RNG SRN ERNE SRNE SENG 
SORTVE. Mi st SE LOCKED INAORS - 

* / oNR/ ENR ENR NZS NBS NALS NZS NBS NZ ENBZS NBZ ENBZ SNE SNE NE 

ny wart NRA ENR ERS ENRS ENR ENRSE NRA ENR ENES ENGL NRL ENESENELENE 

PONBS ENB ENRAE NES SNES ENR SNES ENE ENR ENR NOS ENE ENE 


»SBTTL OPERATIONAL SWITCH SETTINGS 
SWITCH USE 


0-+ 0 9-+ b+ 0 
SryDoOo-WoWl 
@w 
m 
C 


HI 
INHISIT ITERA 
L ONE 


ec ec ee ee ee ee ee et as ee ee oe 


ee 


L N SWR<7:0> 
STOP ane COMPARES IF SWOS IS LOW 
RROR IF SWS LOW 


~SBTTL SASIC DEFINITIONS 


{INITIAL ADDRESS OF THE STACK POINTER #** 1000 ¥«# 
“EQUIV EMT, ERROR :;BASIC DEFINITION OF ERROR CALL 
SEQUIV 10T, SCOPE :3ASIC DEFINITION OF SCOPE CALL 

PS= 77775 PROCESSOR STATUS WORD 
EQUIV Fs PSW 

STKLMT= 177774 3 sSTACK LIMIT REGISTER 

PIRG= 177778 :PROGRAM INTERRUPT REQUEST REGISTER 

DSWR= 177570 1 HARDARRE SWITCH REGISTE 

CdIsP= 177670 ::HARDWARE DISPLAY REGISTER 
;#GENERAL PURPOSE REGISTER DEFINITIONS 

ao= %0 : GENERAL REGISTER 

Ris %4 $5 GENERA. REGISTER 

Re= %2 $3 WENER AL REG ta TER 

R2s “3 ;;GENERAL REGISTER 

Sez “M4 ;;GENERAL REGISTER 

RS= “S :GENERAL REGISTER 
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Owm-) 


Pa pobabetatopabate tot pote 
0 b+ b= b+ b+ & = 0 9-6-2 B= EE) 


OOM IWUI£ GITUeEH 


aaa 


RR 20 +0— »-+> <-> 0 -< 0 -< 8 -< §-< 9 ~< & << 6 - 9 9-0 
att 


o 


~ 
o 
furs 


on 
i 
Ww 


-b- 


BASIC 


QO0006 
060007 


105009 
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,#PRIORITY LEVEL DEFINITIONS 
RO= 9 


oa _ . o 7 a: ° * . _ 
0-4 0-4 40-40 40-40 -00-40-—-40-4 040-4 a TUT UITECTUITY se. 
cC 


WWMWWMOMOWWOwWwWu-:- 






;GENERAL REGISTER 
1] GENERA RE EGIBTER 
$F BRO CK POIN 

;PROGRAM COUNTER 


s PRIORI 

: PRIOR TY LEVEL 1 
:PRIORITY LEVEL 2 

SIPRIORITY LEVEL 3 

IIPRIORITY LEVEL 

:SPRIORITY LEVEL § 
PRIORITY LEVEL 


=) 
PRIORITY LEVEL 7 


-x"SWITCH REGISTER” SWITCH DEFINITIONS 
Swis= 100000 


A EIT pertnttions (BITOO TO BITS) 
190000 






MAINDEC-11-DERPU-B 
ERPUB. 


Pil 


ean 
Oi7é 
o00200 
CO0046 
o000Se 


060210 
000220 





ogogoc 


orn 
neb000 
090137 
O00S46 
034346 
000052 
040000 
000219 
000137 


00022 
000137 oc4ébe2 
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BITO3= 10 
BI Ides P 
BI {00s 
“EQUIV 8ITO9,8IT9 
-EQUIV 8ITOS;8ITS 
-EQUIV 8ITO7,8IT7 
“EQUIV 0b, 8116 
"EQUIV BITOS‘BITS 
"EQUIV BITO4’BITS 
“EQUIV BITO3,8IT3 
“EQUIV BITO2.BIT2 
“EQUIV SITOL;SITI 
“EQUIV B8IT00;S8ITO 
-xBASIC cpu" TRAF VECTOR ADDRESSES 
ERRV RVEC= : TIME OUT AND OTHER ERRORS 
RESVEC= 10 : RESERVED AND ILLEGAL INSTRUCTIONS 
Teirvec=is te 
14 TRAC tra RAP 
BP 1VEes 14 tt BREGKPOINT TRAP (BPT 
IOTVEC= 20 :INPUT/OUTPUT TRAP (TOT) *4SCOPEX# 
PWRVEC= 24 ;;POWER FAIL 
EMTVEC= 30 ;}EMULATOR TRAP (EMT) ##ERROR#® 
TRAPVEC=34 "TRAP" TR 
KVEC= 60 bitty KEYBOARD VECTOR 
TPVEC= 6&4 !:TTY ORINTER VECTOR 
PIRQVEC=240 : : PROGRAM INTERRUPT REQUEST VECTOR 


.SBTTL TRAP CATCHER 


7 #ALL . pNleD 1 eat ONS FROM 4 - 776 corr A_“.+2,HALT” 
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
HALDCRTION . CONTAINS O TO CATCH IMPROPERLY LOABED VECTORS 


pr Tgpres: - HERD 8 ;;SOFTWARE OISPLAY R 
WRE WOR ;; SOFTWARE SWITCH RE 


-SBTTL STARTING ADDRESS(ES) 
JMP Q#BEGIN 








EGISTER 
GISTER 
Mp :;JUMP TO STARTING ADDRESS OF PROGRAM | 
SENDAD ai 
.=Se 
ic 
ine DeBEGINE JUMP SELECT TEST 
IMP DeBEGINI 5 JUNE 19 NO OPERATOR TESTS 
s#STARTING ADDRESS 200 For NORMAL § 
:#THIS WILL TEST ALL RPO4'S ON THE sayeTEM A SINGLE DRIVE AT A TIME 
SASTARTING ADDRESS 210 WILL TEST ONLY ONE SPECIFIED DRIVE 


;# 
s;*STARTING ADDRESS 220 WILL JUMP OVER THE TESTS REQUIRING AN OPERATOR 


Bz 
be 


o-~p- 


I~) 


forururury 


£Wr-Oww 


Se 


0 0 + 02 b— 0-2 0 0 0 0 0-2 b+ pn pe pe Bo po po po 


“I9NININI INI IIIS IIS 
AE tue 


22d 2 > 
aac 
Witt og 


~) 
& 
mr-O 


b+ - ps pe 


uit 





RPU-B 
STARTING 


17e316 


172340 


172356 


001110 
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:4AT THE DRIVE 
LSBTTL MEMORY MANAGEMENT DEFINITIONS 
saKTLL VECTOR ADDRESS 


MMVEC= 250 

;*#KT11 STATUS REGISTER ADDRESSES 
SRO= 177572 

SRi= 177574 

SRe= 177576 


SR3= 172516 
;*KERNAL "I" PAGE DESCRIPTOR REGISTERS 
KIPDRO= 


KIPOR6= 172314 
KIPDR7= 172316 


;#KERNAL "I" PAGE ADDRESS REGISTERS 
IPARO= 172340 


KIPAR7= 170356 
EES eegeerae oe eae EE annette peenitionas 
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5 RRRKREAAALRARAA KAA AAS AAA AAA A ALAL AAA RAAAAREAALA PEL FLSA RPLERSLFLE 
.SETTL COMMON TAGS ; 


ride TREbECBNTAANS VARIOUS COMMON STORAGE LOCATIONS 


ScNTAG: — s:START 
CONTA 


—0-- 


~j 
Ww 


.S 
TANS MAX. te teer PER 
AINS atone 


TU EVO LOVES 


eee oF DATA 


esate ‘Bao DATA’ 
S TRECERVED--NOT TO BE USED 


@w 
- 
YQVOROOOO0R0O0Or- OododOVO000 


b= > 6 <b = & 2 bp — > - 2 hs 


Bess 


; sADORESS OF SWITCH REGISTER 
wa sraus REGISTER 


siTTY PRINTER STATUS REG. ADDRESS 
si TTY PRINTER BUFFER REG. Se aa 
;CONTAINS NULL CHARACTER FOR FILLS 
: CONTAINS OF PULLER EHARAC TERS PeauTreD 
L CHARS. AFTER A “LINE F 
ABLE” ELARG (BIT<07>=0=YES) 
DRESS FRO 
GO) WAS SerAl NED 
GAD) +0) 


fj 


09 
fs 
BD 
06 
8 
B8 
00 
00 
09 
00 
00 
05 
05 
00 
00 
00 
00 
00 
08 
00 
00 
00) 


bb b— bb = = 8 0 = 0 bb -*  — — — —  ~  e 


CN id ceed eed ceed ceed ceed ceed eed ed eed ed eed eed eed eed eed eel ed eee eee 
PU Piouoe LOO Loe me 
o 
oOo 
“ 
w 
“Oo 


—r~ 
PEMwe 


Ba50000005 


= 2 be 0 ee 
av ~ 
OOOKOOKOOO0O000 O2OK-mvwo 


§ + 
000377 BELL: .AS (207 <377<377> | 
g ‘ae 42/ 


«15> 
(12> BU NE F 
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1813 [JHE HEE HEHEHE THEE 

i818 -SBTTL ERROR POINTER TABLE 

l i ;*THIS Me CONTAINS THE INFORMATION FOR EACH arr La A CAN OCCUR. 

1318 ; *THE MATION I Whe UREeR BY notente ths iNoex 7pgeR OUND _IN 

tt ; *LOCA TON “Sitar, THE ef 3 t ne eent ir Rate ; Ht IS PERTINENT. 
i881 NOTE: ACH ie ai rhea TERRIA ath dee XPLA NéD AS FOLLOWS: 
1823 ;* M NTS TO THE ERROR pace 

1 3% Bu :SBOIN 2 TOT Bata HE 

1 3% DT t IPOINTS TO THE 

ise ;* OF ;;POINTS TO THE DATA FORMAT 





28 
i 3 001224 SERRTS: 
8 






1836 . KHERLSASRASLELA LSA ALA SERA LA LE EAHRRELALRELELAAELASELE SELES ELESELES 
1 ; 






1835 

1836 ; ITEM 

1837 001224 043172 EM1 ;RPOY DID NOT_INTERRUPT 

1838 :WAITED ON BIT DID NOT OCCUR 







1839 001226 060100 DH1 :PC 


T PC 
184i err WAITED 
1842 REG ADDRESS 


















1843 *REG CONTENTS 
1844 :RHCS1 CONTENTS 
1845 001230 os2022 Tl :SERRPC, WAITPC, WAITBT, WAITRE, SBDDAT,CS1 
1845 901232 O&226e DF 1 :0,0,0,0,9,0 
tee 
1849 0901234 043221 EM2 s INTERRUPT ENABLE BIT DOWN SUT 
1850 WAITED ON BIT DID NOT OCCUR 
1851 001236 060100 DH tec 
1952 SWAT PC 
1853 :BIT WAITED 
1854 ;REG ADDRESS 
. 1965 REG CONTENTS 
1856 *RHCS1 CONTENTS 
1857 001240 Ose022 OT1 ERRPC, WAITPC, WAITBT, WAITRE, $8DDAT,CS1 
1858 O01e42 Ob2262 OF 1 '0,0,0,0,0,0 
te 
1861 O01244 043310 EM3 ;RPOY DID NOT INTERRUPT WHEN 
1862 WAITED, ON BIT DID SET 
1863 001246 060100 DH1 ;PC- 
1864 WAT PC 
1865 ‘aT WAITED 
1866 ADDRESS 
1867 PRHCS1 CON 


TENTS 
1868 001250 Cée0ce ;SERRPC, WAITPC, WAITBT,WAITRE, SBDDAT,CS1 





MAINDEC-11-DERPU-B MACY11 276732) 17-SEP-76 13:23 PAGE 47 
DERPUB.P11 © ERROR POINTER TABLE 


1969 001252 os2262 OF1 :0,0,0,6,0,0 
18 
ier 001254 043371 etl EMY WAITED ON BIT DID SET BUT 
182 it t IN bab 
74 :T GIVEN IN 10 MICRO SEC. 
1875 ; (DECIMAL) 
1876 O01eS6 osce40 DH4 :PC 
1878 ‘BIT WAITED 
1879 , REG ADD 
1880 . :TIME IN 10 MSEC 
1881 091250 o82040 OTY : SERRPC WAT TPC WAITBT ,WAITRE,SEDDAT,WAITIN ° 
188 001262 O62270 OFY :0,0,0,0,0,1 
1884 ; ITEMS 
1885 001264 043500 EMS sRHAS DOES NOT CLEAR BY 
1886 ‘MOVING IN ALL ONES 
1887 OO1266 060363 DHS :PC 
1889 5REG. 
1889 :GO0D DATA 
1890 RECEIVED D 
1891 001270 os20S6 DTS _ ~ $GERRPC REGAOR, $GDDAT, SBDDAT 
183e 001272 062276 DFS :0,0,0,0 
1894 ; ITEMS 
1895 001274 o435Se2 EMG ;LOADING RHER1 FOR ALL 
1996 :UNITS DID NOT SET ANY BITS 
1897 IN RHAS-NO UNITS PRESENT 
1898 001276 o604be . DHE iP 
1899 REG ADD 
1300 :RECEIVED DAT 
1901 901300 o62070 DT& : SERRPC, REGADR, $BDDAT 
130¢ 001302 62302 OF6 :0,0,0 
1904 ; ITEM? 
1390S 001304 O43640 : EM7 ;SPECIFIED REGISTER NONEXISTANT 
1906 | :50 ABORT PROGRAM 
1907 001206 Of0S41 DH? .. ; 
1908 al ADDR. OF REG. 
1909 001310 o62100 + O17  SERRPC, TEMP! 
1310 60i312 O62305 - . i? :0,0 
1912 s ITEMIO 
1913 001314 043722 EMO ; STOPED DRIVE HAS MOL BIT 
1914 ‘IN RHDS1 = 
1915 001316 060571 DHIO ;PC 
1916 : TEST NO 
1917 FAILING REG ADDR 
_ 1918 :CONTENTS OF RHCS1 
1919 :CONTENTS OF RHCS2 
1920 , sCONTENTS OF RHOSI 
1921 :CONTENTS OF RHERI 
1922 601320 062106 DT10 : SERRPC, STSTNM, EBOADR, CS1,CS2,DS1,ERL 


1923 O01322 062307 DF 10 :0,0,0,0,0,0,0° 
1924 
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1951 


al tis 


FESRa 


DDD .D0 ODO 


oe 
w 


1964 


001324 


001226 


001330 
001332 


001334 


001336 


001340 
001342 


001344 


001346 


001350 
001352 
001354 
001356 


0013 
00136 


001364 
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043771 


060571 


962106 
062307 
044076 


060571 
062106 
062397 
044204 
060571 
062106 
062307 
044323 
060363 


062056 
O&e276 


044375 
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; ITEM 
EM11 


DH10 


; ITEM1e 


EMle 


;ITEM13 
EM13 


DH10 





;WITH SPINDLE POWERED DOWN 


pro ae 
One gee 


CON RHE 
Sesnec S1STm SEOADR, CS1,CS2,0S1,ER1 
0,0 ’ ,0 ,0 ,0 


;AFTER A POWER UP WITH 
NO PACK ACKNOWLEDGE COMMAND 
;RHDS1 SHOULD HAVE MOL=1, VV=0 


TEST NO 
‘FAILING REGISTER ADDR. 
NTS OF RHCS1 


;CONTENTS 

;CONTENTS Se 

share Te OF RHDS1 

;CONTENTS OF RHER] 

; SERRPC, STSTNM, , SBDADR,CS1,CS2, Ds, ERI 


:AFTER A POWER UP WITHOUT 
!ANY INIT RHCS1 SHOULD 
‘HAVE GO=0, DVA=1, ROY=1 
sJE=O DISREGARD 

a orneR Bits 


ire NO 
;FAILING map ree Mee. 


; CONTEN RHER1 ‘ 
HSERRPC,STSINA, » SBDADR, CS1,CS2,0S1,ER1 
$¥,U,U,U,U,U, 


;AFTER POWER UP RHCC 
;SHOULD BE=0 
s ADDR. 
G00D DATA 
sRECEIVED DAT 
 SERRPC,REGAOR, , SGDDAT , SBDDAT 


;PACK ACKNOWLEDGE CAUSED 


— 











DERPUB.P11 


001366 


BBB UB 8 BR 


001370 
00137e 


Pr 
0 
to 


001374 


+ -0— bb b— b+ 6 = 9 = » = 2 pp 
0 
w 


000W0 
PAL 


1997 
1998 001376 


. 2002 001406 
2003 001402 


001404 


001406 





001410 
00141e 


CO1414 





e024 OO01416 


e0e8 001420 
spe 001422 


2033 001424 


2035 001426 
001430 
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060363 
062056 
062276 


344536 


060363 


O&2056 
062276 
O44654 
069363 
O&2056 
062276 
045021 


060363 


062056 
062276 


045170 


060363 
062056 





MACY11_27(732) 
ERROR POINTER TABLE 


17-SEP-76 13:23 PAGE 49 


; ITEM16 
EM16 


DHS :PC 
REG. ADDR ; 
:GO0D DATA 
*RECEIVED DATA 

DTS : SERRPC, REGADR, SGDDAT, SBDDAT 

OFS :0,0,0,0 

; ITEM17 
EM17 sDRIVE CLEAR COMMAND 


; ITEM20 


; ITEM 21 
EM21 ;RHCS1 CONTENTS DURING . 
COMMAND WAS IN ERROR 
DHS 
OTS 





Pak uA “BETER COMMAND 





DHS 
REG. DOR. 
:G000 DATA 
;RECEIVED DATA 
OTS : SERRPC, REGADR, SGDDAT , SBDDAT 
OFS TOO 


BA ERG NO-OP COMMAND CAUSED 
GOOD DATA Give? REGISTER 





;RE 
: CONTENTS AFTER COMMAND 
















AN ERROR 
; GOOD DATA GIVES WHAT SHOULD 
HERE 


RECEIVED DATA GIVES WHAT WAS 
THERE AFTER COMMAND 
DHS ;PC 








GOOD DAT 

RECEIVED AAT 

OTS : SERRPC REGAOR, $GDDAT, SBDDAT 
OFS :0,0,0,0 











EMe0 psig oe ey GAVE AN ERR 
;G00D_DAT = WHAT SHOULD Be THERE 
“et sRECEIVED LATA HAS WHAT WAS 
;AFTER COMMAND - 
DHS ;PC 














GOOD DATA 

RECEIVED DAT 
OTS : SERRPC REGADR, S$GDDAT, SBCDAT 
DFS :0,0,0,0 
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062276 


046012 
060750 


062126 
062316 


046102 
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OFS 


; ITEM 22 
EMee 


; ITEM 23 


EM23 


DHS 
DTS 


; ITEM 24 
EM24 


DHS 
OTS 
DFS 


;ITEM 25 
EMeS 


; ITEM 26 


; ITEM 27 


EM2e7 


;RHDS1 CONTENTS DURING 
;COMM ANS WAS IN ERROR 


UNLOAD COMMAND GAVE AN ERROR 
#000 Pee GIVES WHAT SHOULD 


ECE VER, y. GIVES WHAT WAS 
; THE OMMAND 


;OFFSET COMMAND CAUSED AN ERROR 
SHOULD BE THERE 


;G00D DATA IS WHAT 
RECEIVED DATA GIVES Hy WAS THERE 


AFTER AN OFFSET COMMA 


+ eUSED TO CENTER LINE COMMAND 
# GOOD DATA GIVES WHAT SHOULD BE 


SRECETVED DATA GIVES WHAT WAS 
THERE AFTER COMMAND 


3500 OFFSETS CAUSED AN ERROR 
:CONT. OF RHCS1 


T. 
Sermbc os] ee, ,0S1,ER1,ER2,ER3 


;WRITE HEADER AND DAT 
: CAUSED nae REGISTER CHANGE 
;G00D DATA GIVES WHA 


;SHOULD BE THERE 


= \ 
& } 
f fy 


04 
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a eS eR ee es 
HO1S 

2 Bik aoe ef 

97 OO1El2 Ob2276 DFS 
2098 . 
2099 : ITEM 30 
2100 OO01S14 O46320 EM30 WRITE HEADER AND DAT 

101 ‘CHANGED WRITE FROM BUFFER 

ine OO1S1é 61127 DH30 :PC 

1 ;WORD NO 
2104 $6000 DATA 
Sie igo paT 

106 001520 O62146 D730 RPC ERWORD, SGDDAT, SBDDAT 
3107 601522 062325 DF 30 eo Ob 
2109 ITEM 31 
tio 001524 o46400 EM31 READ HEADER AND DATA CAUSED 

ill ‘IMPROPER REGISTER CHANGE 
elie ; GOOD DATA HAS WHAT SHOULD 
ella THE 
2114 IRECEIVED DATA GIVES WHAT 
11s ‘WAS THERE AFTER COMMAND 
2115 OO1526 O&03E3 DHS 
2117 901530 Ose0S6 OTS 
2118 001532 27; OFS 
2119 
2120 ITEM 32 
2ie1 OO1S34 O46615 EM32 ;WRITE HEADER AND DATA FOLLOWED 
2lee ?BY A READ HEADER AND DATA 
2123 :CAUSED A READ/WRITE ERROR 
2124 001536 DH30 
2125 001540 Os2l46 | DT30 
eiet 001542 062325 OF 30 
2128 ITEM 33 
e123 001544 O4E722 EM33 s READ D pata CAUSED IMPROPER REGISTER 
2131 e000 DATA GIVES WHAT SHOULD BE THERE 
2132 RECEIVED DATA GIVES WHAT WAS THERE AFTER 
2133 : COMMAND 
2134 OO1S46 060363 DHS 
2135 001550 O62056 OTS 
e136 001552 O62276 OFS 
2138 ITEM 34 . 
2139 001554 047124 EM34 READ DATA INCORRECT x) 
2140 001556 061127 DH30 : 
2141 001560 O62146 0730 
2142 001562 O62325 DF 30 
2143 
2144 ITEM 35 
2145. OO1S64Y 047150 EM3S WRITE DATA COMMAND CAUSED 
2146 IMPROPER REGISTER CHANGE 
2147 :GOOD DATA GIVES WHAT SHOULD BE THERE 
2148 RECEIVED DATA GIVES REGISTER 
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2149 ;CONTENTS AFTER WRITE DATA 
2150 OO1S6E 060363 DHS 
2151 001570 peste pre 
ies 001$7e e76 5 
154 ; ITEM 36 
155 001574 047366 EM26 ;WRITE DATA COMMAND CHANGED 
2156 sWRITE FROM BUTFER 
gi2 poie7B 061127 DH30 
158 QO1600 962146 DT30 
Ht 001602 062325 DF 30 
2161 ; ITEM 37 ; 
tte: 001604 047443 EM37 ;SEEK COMMAND CAUSED AN 
el ; ERROR 
siet ; GOOD > Dore GIVES WHAT SHOULD 
e166 RECEIVED DATA GIVES WHAT 
5iP2 ;WAS THERE AFTER SEEK COMMAND 
168 O01606 060363 DHS ; 
2169 001810 062056 OTS ; 
sic0 OOl6le 062276 DFS ; 
512s ; ITEM 40 
. 2173 001614 047660 EM4O ;WRITE CHECK CAUSED AN 
2174 IMPROPER REGISTER CHANGE 
si? ; GOOD pare GIVES WHAT SHOULD 
e177 RECEIVED DATA GIVES WHAT WAS 
e178. ; THERE AFTER COMMAND 
2179 001616 060363 DHS 
2180 001620 062056 OTS 
£181 OO0lbee 062276 DFS 
e182 
. 2183 ; ITEM 41 
2184 001624 050067 EM41 ;LOCKING OUT WRITES BY WRITE 
2185 ;LOCK SUTTON CAUSED IMPROPER 
2186 ;REGISTER CHANG 
4174 $60 yoy DaTA GIVES WHAT SHOULD 
2189 t RECEIVED DATA GIVES WHAT 
2190 ;WAS THERE AFTER WRITES 
2191 te ee ; HERE LOCKED OUT BY 
e192 ; BUTTON 
2193 001626 060363 DHS 
2194 001630 062056 . OTs 
e195 O0l63e Obee76 DFS 
2196 
to ;ITEM 42° 
198 001634 050350 EM4e sATTEMPTING TO WRITE WITH WRITE 
2199 ;LOCKED OUT uprugen IMPROPER 
e200 ;REGISTER INGE 
2201 ;GOQ0D DATA IVES WHAT SHOULD 
ecde THERE 
e203 :RECEIVED DATA GIVES WHAT WAS 


2204 ; THERE AFTER ATTEMPT 
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DEREUS.Pil ERROR 

ci be = 

e208 2ei$4 =? S2z36 

“555 BOige2 562275 

3x3 

S2i2 O01s44 CS082E 

Eile 

ee: 

=s.* 

ss! S 

=5? 

52-8 

2:2 2oi$s8 261127 

2:3 22:55. 22.58 

Sosy 222555 SDSSES 

zie O01S4 O811E+ 

==: 

ezes 

o> =m 

SSS 

See: 

E228 

ed eee ane 

ees5 D01856 série: 
Cul&se wSce: = 


COisé4 25:456 


ure tate 


forurururuhohonoronanr 


Boe ome oa 
few 


c=43 OSLEEE sECsEe 


1 
eev4 001670 D62e0Se 
eexS 001672 6227 
eett 
2247 
ee48 001674 051752 
cc '9 
eet 
22s. 
eceSe 001676 061127 
eeS. 001700 O62146 
"ge54 001702 Obe325 
2255 
ae 
e257 301704 Oseces 
Ene 
2e59 

e260 


M3 Cy 
POIN NYE 


VY} e7 (732) 
R TRSLE 


: ITEM 43 
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a) oe) ee] 
14 
Lie ee) Pe) 


oom 


:ITEM 44 


ITEM 46 


EM4E 


ITEM 4? 
EM47 


WRETING WITH WBITE “Fate 


See a 
ite He re a 74 atuee nt WAS 
iE BACK AFTER WRITE Uz? 
RITE LOCK WAS ATTEMPTED 


NABLING WRITES By WE ITE LOCK 


tT TON CAUSED AN ERRCA 
$3000 D 287A GIVES WHA? SHOULD 
:RECEN\ EC SATS SIVES WHAT WAS 
:THERE AFTER WRITE LOCk 
; BUTTON ENASLED WRITES 


: TRANSFERRING ON LAST BLOCK IE. 


410 K 18 
CALBE THeROBee REGISTER 


GOOD ‘od GIVES WHAT SHOULD 


HER 
RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER TRANSFER 


;DATA READ FROM oe 
:BLOCK TE. CYLINDER 410 
s SECTOR el, TRACK 18 18 IN 


; TRANSFERRING ‘o Ps 
SECTOR CAUSED IMPROPER 
;REGISTER CHANG 

;G00D DATA GIVES WHAT SHOULD 


rr 


CYLINOER 
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DERF 


UB.Pil 


GW) 
© 


frururururorurory 
oduduaIGiGaits 

> 0+ 0 8 8 8 

Mn stiwrr-OwoOonN 


001716 
001720 
00172e 


-001724 


001736 
001740 
001742 
001744 
001746 
8) 


Qi 750 
01752 


MACY] 


27 (732) 
ERROR ejiNTER TRALE 


060363 
O$20S6 
Obe276 


er 


oS2347 


DeSa7e 


0$3304 


061127 
O62 146 
062325 


; ITEM $3 
EM 
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s ITEM 50 
EMSO 


DHS: 


‘ITEM S2 


EMSe 


sITEM S4 


;BE THERE 

RECEIVED aa GIVES WHAT WAS 
THERE BE ATTEMPTED 

TR cfr 


; TRANSFERRING a's Pa 
CTOR ou aa DATA ERROR 


IVI 
; IMPROPER REGISTER 
3 GOOD DATA GIVES WHAT SHOULD SE 


BC 
sREG. ADDR. 

;G000 DATA. 
:RECEI veo. rol 
ILLEGAL FUNCTION 


: SERRPC, REGADR, SGDDAT, SBDDAT, ILLEGL 
:0,0,0,8,6 





;WRITE DATA _ON NONEXISTANT 

; SECTOR "yor IMPROPER 
;REGISTER 

; 000 ly Gives WHAT SHOULD 


iRECE VED DATA GIVES WHAT 
:WBS Me AFTER ATTEMPTED 
TR 


Nk 
;READ HEADER AND DATA AFTER bf 
;A SEARCH CAUSED AN ERROR = 
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DERP 
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051754 


pnt 8b 


002506 
002010 
O0e01e 


002014 


0S3637 


0&9363 


060363 
062056 
062276 


054627 
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001784 083372 
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EMS4 


sITEM SE 


EMS& 


s ITEM S7 


EMS? 


; ITEM 60 


EMEC 


OVER Tea Soren’ fan am 
ORR NUR Pes 
ot in DATA S WHAT SHOULD 


:BE 
RECETVED DATA GIVES WHAT 1.95 
;THERE AFTER OPERATION 


;WRITING/READING WITH EXPECTED 
: AOGRESS Ove Ere ERROR CAUSED 
; IMP Ror RS vie aier CHANGE 
GOOD DATA GIVES finat SHOULD 


THERE 
RECE VED DATA GIVES WHAT 
;WAS THERE AFTER OPERATION 


;DATA READ WITH AN EXPECTED 
tp eeRe QVERFLOW ERROR IS 


fogs a i TO 260 SHOULD 


WORD NOS 261 TO 266 SHOULD 
:NOT CHANGE DUE TO READ 


s ATTEMPTING DATA COMMAND 

;WITH WRONG Aad arr CAUSED 
iy MPROPER REGISTER 
: $000 DATA GIVES MAT SHOULD BE 


iRECE VED_DATA GIVES WHAT WAS 
; THERE AFTER ATTEMPTED DATA 
; TRANSFER 


;ATTEMPTING TO MODIFY REGISTER 
DURING AN ne Bi SED 

; IMPROPER MoraTen HANGE 

3 5000 Dare GIVES WHAT SHOULD 


SRECEIVED DATA GIVES WHAT WAS 
;THERE AFTER OPERATION 













RPUS.P11 


34 
e33$ 002040 
ss 002042 


e4el 002054 
e422 002065 


e427 002070 
e428 002072 


ME*NDEC-11-DERPU-B 
DE 


062174 
062336 


OSS236 
361455 


bees 


055236 
061540 


2373 
ie OOES1& 061340 
5352 

377 

373 

237 002020 
2380 002022 
3353 

382 
e382 O02e024 
2384 002026 
2385 
535° 0020 
388 Besos 
2389 
2330 
2391 O02034 
e332 OCe036 
2393 
23 


Obe2e0 
Ob2346 


OSS322 


060363 
062056 
062276 


0SS375 


060363 
062956 
062276 
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DHED 


DTé0 
OF ED 


; ITEM $1 
EMS1 


DHE} 
Tél 
Fol 
M61 

DHb2 


DTbe 
DF 62 


: ITEM 63 


EM63 


; ITEM 64 


EM64 


s ITEMES 








es COMPLETE 


5h 
IMOOFING REG 
ERRPC REGAOR. §coDaT, SBDDAT, SBOADR 
3 SERREC Re 
;DEVICE NOT AVAIBLE BEFOR COMMAND WAS TO BE GIVEN 
IPC OF JSR 


:RHDS1 
; SERRPC, »PCJSR, SB8DADR 












— NOT AVAiBLE BSEFOR COMMAND WAS TO SE GIVEN 


srt OF oe 
: SERRPC, »PCJSR, SBDADR 


;RHDS1 CONTENTS DURING 
:COMMAND WAS IN ERROR 


sRECALIBRATE COMMAND CAUSED 
IMPROPER REGISTER CHANGE. 
; $000 DATA GIVES WHAT SHOULD BE 


RECEIVED DATA GIVES WHAT WAS THERE 
AFTER COMMAND 


aaa FAILING 


TSI, OF RHCS1 
: CONTENT OF RHAS 
CONTENTS OF RHDS1 

: SERRPC fot CS1,AS,DS1 
:0,0,0.0,0 
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Be , ;READ DATA CAUSED IMPROPER REGISTER 
eH GOOD DATA GIVES WHAT SHOULD SE THERE 
e199 . | sRECEIVED DATA GIVES WHAT WAS THERE AFTER 






002136 
2491 002140 O6e056 OTS 
e492 O0el4e Obee76 DFS 













85 02144 os72e2 EN73 SWHILE USING UNIBUS B 
Suge SREAD DATA INCORRECT 
54g? 902145 061127 OH30 
549g 005150 062146 «Ore 

95 Oosis2 O52326 OF 20 
5599 
Sens gozis4 057274 iets SING UNIBU 

ie REE oR HW 88 Causeo 
5504 : R REGISTER 
5505 , SOR DATA ETUES CHAT SGULD BE THERE 
S06, . tRECEIVED DATA GIVES REGISTER 
5e09 . SCONTENTS AFTER WRITE DATA 









2510 O0e21 062275 DFS 

eSli 

sie - ; ITEM 75 

2Si3 002164 057540 ; EM7S ;WHILE USING UNIBUS B 

2514 : f RITE DATA COMMAND CHANGED 

2515 s;WRITE FROM BUFFER 

2516 O02166 061127 DH30 at 
2517 O02i70 Ob2146 DT30 AL} 
e518 002172 062325 DF30 dys 
2519 Yt + 
2S20 a ; ITEM 76 

ass 002174 OS7643 EM76 : SING UNIBUS A 


HERE 
RECEIVED ‘pata GIVES WHAT WAS 
;THERE AFTER COMMAND 












002176 060363 
002200 62056 
O0e2e3e Obee76 
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2587 20009 NCPES 2000 sMASSBUSS PARITY enon (BIT #13) 
> & . 
3253 REDS gRe= 16880 : SPECIAL cBRETTION (Bt? 15) 
g091 STATUS REGISTER (RHDS1) (#01) 
00001 OFFS= 1 sDRIVE FORWARD S"/SEC. (Bil #0) 
2594 gacogs OFFe0= 2 ;DRIVE FORWARD. 20°/SEC, (BIT 81) 
3595 0004 DIiGB= 4 ;DRIVE TO_INNER GAVRD @AND (BIT 42) 
2595 900910 GRV= 10 !G0 REVERSE (BIT #3) 
2597 00020 DLe4= 20 !DIFFERENCE LESS THAN 64 (BIT #4) 
2599 900040 DEl= 40 :DIFFERENCE EQUALS 1 (BIT #5) 
2599 00100 We 400 ; VOLUME, VALID (GIT 6) 
1 5550 PR= 58 i BR IVE REPO vt (BIT #8) 
eat ters 5000 sPAST SECTOR TOONSPERRED (BIT #10) 
= H & 
o4 ac bers gfe {WRITE LOCK (BIT #11) 
010000 MOL= 10000 : MEDIUM (BIT #1 
606 ge9900 PIP= 20000 :POSITIONING OPERATION IN PROGRESS (BIT #13) 
000 ERR= 40000 :COMPOSIT ERROR. (BIT 
2608 100000 ATA= 100000 SATTENTION ACTIVE (BIT #15) 
261 SERROR REGISTER #01 (RHERI) (#02) | 
2611 90001 tLF 1 sTLLEGAL FUNCTION (BIT 40) 
2612 ooo002 +f ‘ILLEGAL REGISTER (BIT #1) 
2613 00004 RMRs Gt ‘REGISTER MODIFICATION REFUSED (BIT #2) 
2614 oo001c PAR= 10 ZPARTTY ERROR (BIT #3) 
2615 900020 FER= 20 :FORMAT ERROR (BIT #4) 
2616 90094 WCF= er 'WRITE CLOCK FAIL (BIT #5) 
2617 0001 ECH= 190 2ECC HARD ERROR (BIT #6) 
2618 900209 HCE= 200 . ;HEADER COMPARE ERROR (BIT 87) 
2619 990400 HCRC= 400 HEADER CRC E (BIT #8) 
E20 001000 ACE= 1000 : ADDRESS BOERET OW ERROR CRIT #9) 
be 002000 IAE= 2000 : INVALID SS ERROR (BIT #10) 
2622 904000 WLE= 4000 sWRITE LOCK ERROR (BIT #11) 
Pb23 10000 DTe= 10000 !DRIVE TIMING ERROR (BIT #12) 
2624 d20000 OPI= 2000 : OPERATION INCOMPLETE, (BIT 413) 
E25 oso000 UNS= 4000 ZDRIVE UNSAFE (BIT #14) 
e626 100000 DcK= 100000 - pata cheer ERROR (BET 15) 
e628 sMAINTAINABILITY REGISTER (RHMR) (#03) 
2630 900001 OMD= 1 sDIAGINOSTIC MODE (BIT #0) 
2631 oo0002 MCLK= 2 !MAINTAINABILITY CLOCK (BIT #1) 
2632 Oo0004 MINX= 4 :MAINTAINABILITY INDEX (BIT #2) 
- B33 900010 MSTCK= 10 SMAINTAINABILITY SECTOR CLOCK (BIT 83) 
2634 00020 MRO= 20 ;MAINTAINABILITY READ (BIT 
2635 oo0040 MUR= 40 ‘MAINTAINABILITY WRITE (BIT 45) 
2636 001000 OTSY= 1000 :MAINTAINABILITY SYNC DETECTED (BIT #9) 
2638 . TTENTION SUMMARY PSEUDO-REGISTER (RHAS) (#04) 
3E40 900001 aTo= 1 sDEVICE 0 (BIT #0) 
2641 goog02 : aTiz 2 SDEVICE 1 (BIT Ta) 


eb4e c00004  ATe= 4 ;DEVICE 2 (BIT & 






0S 
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49 SIRED SECTOR/TRACK ADDRESS REGISTER (RHDST) (#1) 
650 :ERCH BIT IS CALLED BY BIT NUMBER 

2651 TYPE REGISTER Cnet) ( #06) 

2bSe PACH BIT IS CALLED BY 

2653 ;LOOK-AHEAD REGISTER (RELA) (#07) 








e654 
2655 090001 EXTl= 1 ;EXTENSION 1 (BIT #0) 
2656 ExTe= 2 ;EXTENSION 2 (BIT #1) 
2657 0004 XT4= s EXTENSION 3 (BIT #2) 
10 XT10= -10 ;EXTENSION 4 (BIT #3) 
ess9 ExTeO= 20 ;EXTENSION S (BIT #4) 
000040 EXT40= 40 ;EXTENSION 6 (BIT #5) 
1 SCl= 100 ;SECTOR COUNT FIELD O (BIT #6) 
e662 SCe= 200 ;SECTOR COUNT FIELD 1 (BIT #7) 
000400 SC4#= 400 ;SECTOR COUNT FIELD 2 (BIT #8) 
2684 $Cid= 1000 ;SECTOR COUNT FIELD 3 (BIT #9) 
2665 002000 SCe0= 2000 ;SECTOR COUNT FIELD 4 (BIT #10) 
4) TRK1= ;TRACK FIELD 1 (BIT #11) 
2667 0100 TRKe= 10000 ; TRACK 8 § (Bit #12) 
2668 0200 TRKY= 20000 ; TRACK FIEL (BIT #13) 
2669 040090 TRK10= 40000 ;TRACK FIELD 4 (BIT #14) 
2670 oc e0= 100000 ; TRACK FIELD S (BIT #:5) 








2674 009091 WCU= 1 ;WRITE CURRENT UNSAFE (BIT #0) 
2675 000002 CSF= 2 ; CURRENT SINK FAILURE (SIT #1) 
009004 "4 E SELECT UNSAFE (BIT P 
000020 = ;MOTOR SEQUENCE ERROR ( ) 
2675 009040 TOF= 40 ; TRANSITIONS DETECTOR FAILURE ‘SIT #5) 
= ; TRANSITIONS BIT #6) 
eb = AD SELECT 
2584 092000 NHS= 2000 iNO HEAD SELECTION (art #10) 
2685 004000 IXE= 4000 INDEX ERROR (BIT #11) 
e685 010000 VU30- 10000 ;30VOLT UNSAFE (BIT #12) 
2687 020000 PLU= ny : sPLO UNSAFE (BIT #13) 
100000 ACU= 100000 sACUNSAFE (BIT #18) 





REGISTER (RHOF) (#11) 





2697 00004 
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OFREV= 2U0 NEGATIVE (REVERSE) (BIT #5) 


oe PEl>  §888 (ar seer SP et Pbar a 


FMT2e= 10000 


;DESIRED CYLINDER ADDRESS nce). (#le) 
EACH BIT IS CALLED BY BIT NUMBER. 


;CURRENT CYLINDER ADDRESS (RHC) (813) 
EACH BIT IS CALLED BY BIT NUMBER 


;SERIAL NUMBER REGISTER (RHSN) C14) 
;EACH IS CALLED BY BIT NUMBER 


sERROR REGISTER #03 (RHER3) (#15) 


000001 1 ;PACK SPEED Ler cauT ye) 
e ; VELOCITY UNSAFE (BIT #1) 
10 ;ANY UNSAFE EXCEPT READ/WRITE (BIT #3) 
20 ;DISK . tw ROTE) 108 ERROR (BIT #4) 
40 ZAC ny (BIT #5) 
199 DC LOW 


(BIT #6) 
40009 : SEEK INCCMPLETE (BIT #14) 
100000 OFF CYLINDER (BIT #15) 


;ECC POSITION REGISTER (RHEC1) (#16) 
;EACH BIT IS CALLED BY BIT NUMBER 


;ECC PATTERN REGISTER (RHEC2) (817) 
EACH BIT “IS CALLED BY BIT NUMBER 


5 RERRRRRLELE EERE LER REAL AEE EERE RE RES REE EERE ERERE RRR E RARE E RRR AELEEE 








LOS 
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-SBTTL REGISTER ADDRESSES 


;RPO4 DISK I/0 REGISTERS LOCATED IN THE RH11 CONTROLLER 


R 176722 ;DATA a R 

RHWC: 176702 ;WORD COUN 

RHBA: 176704 ;BUS ADDRESS 

RHCSe: 176710 CONTROL AND STATUS 2 


sRPO4 DISK 1/0 REGISTERS LOCATED IN THE RPO4Y DEVICE LOGIC 
176700 ;CONTROL AND STATUS 1 
tERROR & 
Pea Ine p_SerTOR/ TRACK ADDRESS 


; OFFSE 
sDESTRED CYLINDER ADDRESS 


SATTENTION SUMMARY 
:MAINTAINABILITY 
:DRIVE STATUS 
SDRIVE TYPE 
:SERIAL NUMBER 
tECC POSITION 
ZECC_PATTERN 

: :CURRENT CYLINDER ADDRESS 

176720 : 176720 : LOOK-AHEAD 


sP=CLOCK (KWL1-P) 1/0 REGISTERS 


172540 PCLCSR: 172540 ;CONTROL AND STATUS REGISTERS 
17254e PCLBUF: 172542 ;COUNT SET BUFFER 
172544 PCLCTR: 172544 ; COUNTER 


0S 
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1 REGISTER ASDRES SES 


i 


;THE FOLLOWING LOCATIONS ARE RESERVED FOR REGISTERS 


GN vA "HN kp au but "HLL GE FILLED TRUE 
POR THE TIME JUST AFTER THE “ERROR” E 


;DATA BUFFER 
;WORD COUN 


BOR TROL ane STATUS 2 


CONTROL AND STATUS 1 
TERROR #1 

:DESIRED SECTOR/TRACK ADDRESS 
ZERROR #2 


Seed 
;DESIRED CYLINDER ADDRESS 


ieee 


attatte 
SRR LGR 
fos | ae ] os | ae) 


Obese 
on279 


oow 


0300 69 6303 03 6 O6003 OED 


0 p= bb pe 
NOU COIN 


SAT ENTION SUMMARY 
sMAINTAINABIL ITY 
:DRIVE STATUS 
DRIVE TYPE 
SERIAL NUMBER 
sECC ORT TEaN 


:ECC P 
; CURRENT CYLINDER ADDRESS 
; LOOK-AHEAD 


Q 
0 
0 
G 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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;FUNCTION EQUATES 
; TABLE OF FUNCTIONS FOR RHCS1 THEN “GO” BIT HAS TO BE SET 





002334 FUTABL 

334% 000000 NOPERA: 9 ;NO OPERATION 

336 000002 UNLOAD: 2 UNLOAD (STAND BY) 
pose eateayt RECALI: 6 R CALIBRAT 

4 1 DCLEAR: 10 ;ORIVE CLE 
002344 000012 RELEAS: le sRELEASE (DUAL-PORT OPERATION) 
002346 900030 SERCH: 30 ;SEAR NOD A 

350 090050 WRCHEK: 50 : WRITE "check DAT 

000052 RCHDT: Se WRITE CHECK HEADER AND DATA 

002354 000060 WRIDAT: 6&0 sR TE DA 
esta pOes WRIFOR: 62 ;WRITE HEADER AND DATA (FORMAT) 

6 00 READAT: 70 ; READ 
O0e36e 000072 EFOR: 72 READ HEADER AND DATA 

364 000004 SEECOM: 4 i SEEK COMMAN 
002366 000014 OFSETC: 14 ; OFFSET 

QO 000016 RETCL: 16 SRETURNTO CENTERLINE 
00e37e 00022 KACK: ee : PACK rene E 
002374 000020 READIN: 20 sREA 
002376 oc00000 ILLEGL: .WORD 0 COMPUTED ILLEGAL FUNCTION 
;DATA Burren FOR READ WRITE 

002400 c004%2e WRFROM: :BLKW = 274 ;WRITE FROM THIS BUFFER 
CO3444 O00422 REINTO: .BLKW 274. :READ INTO THIS BUFFER 








j RESERVED LOCATIONS 
004510 00000 REGADR: O ;SAVE REGISTER ADDRESS HERE 
OC4Sie 000000 ERUORD: SOE ERROR WORD NUMBER HERE 
004514 000000 TSTNM: iT UMB 
004516 000000 RPYVEC: 0 :CONTAINS ADDRESS OF LOCATION 
sWHERE AN RPO4 INTERRUPT ISTO VECTOR TO 
pot ag BE MOVED INTO *RPVEC’ TO BE 












oo4S20 00000 OFSTYL: O ;OFFSET VALUE USED IN OFFSET TEST 
















o04See 000024 SAVERE: .BLKW 20. ;BLOCK TO SAVE REGISTERS 
00457e 000000 FINALA: 0 SAVE LOOK AHEAD REGISTER AT END OF OPERATION 
004574 000000 FINACC: 0 : SAVE CURRENT CYLINDER REGISTER AT END OF OPERATION 






; TABLE FOR A ATTENTION BITS 
004576 001 002 004 iTapre: NES 1,2,4,10,20,40, 100,200 
004601 C10 020 O40 

p04604 106 






= eas re oe ee. en 
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38? inttee vED ee FOR UNIT SELECT 

sss | 0001 NITS: .BLK § IS ER TEST WITH -1 
$32 es 7e8 220002 NET; “TOR 

3 


THI 

if 
660556 NOUNIT: WORD iN : ck Oe a ee . 
a NItt UNDER TEST 


3 004632 000000 NUNIT: .WORD es ae iF THERE ARE MORE 
= 004634 SO000C f NOPUSH: 0 ace “ahs INOICATE NONE OF THE OPERATOR 
3 ’ 
: 


1 oow, 


ESTE WILL BE PERFORMED 
NOICRTE u Shani se SELECT 


Cur ergereenleaterieate Certertes 


. TUPTUPTUPTUPTU eae eaeereneeneetertesiereentertes 
coco 
€ 
ee 

4 
2 
o 


SoHeel  OO0550 UNI TSL: . WORD 
= - - -~ ~ = - J ~ 
Dosé42 lOCDlL UBuUSS: O :IF ZERO 


LOO. Onin (one 


=: 

C3 DO4BSS 900009 ERFLGS: 0 gerer FLAG 

53 Slséee SSSSSE PIRST: 0 F 3ER0 pe TY {PE HE RCER 

5 FONES WILL NOT TYPE HEADES 


By 
t 


so 
She 

OS OO4E50 oocDOD QATTENT: 2 sATTENTION 3IT FOR PRESENT UNtT 

as? SRCEES SekESs SITE, 9 . [ATTENTION QITS 
Sli 

$13 ovess 09000 THEO: § WORD toe Steet 

Sis ~ CooCon TM 1: WU {8} 0 

gi5 Eecces SESSEE "MP4: ‘WORD 8 : TEMP STORAGE 





ee eee 


nnn we ee 






6 
005176 


0 

8) 

Oe 
pises, 


012710 
pour ge 


104400 
000440 


meer 27 (732) 


MAINDEC-11-DERPU-B 
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e315 
sig Oe p12737 ae eee 
e316 Sse Baie 
g253 Ruse Bherae Baca 
2921 OO4710 OOO404 
2eS2e OO871l2 O0S037 046365 
2323 OO47is O05037 O04634 


001100 
001126 
901009 
037560 


174040 


009176 
009174 


OCO09& 
000004 


O0S346 
040510 
OC4E4E 
005776 
ocS=04 


004634 


OO4636 


174034 
172712 


174030 
174024 


172642 
000036 
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BEGINI: 


BEGIN2: i 
v 


BEGIN: 


START: 


64S:- 


bS$: 


fe 
tAwm 


—s REGISTER TEST 


06 


















ass USH JUMP OVER OPERATOR REQUIRED TESTS 
SuktPisH SBO'ROT JUMP OVER ANY TEST ~ 
SeSELECT :D0 NOT SELECT UNIT 

3 ¢NOPUSH :D0.NOT JUNP OVER ANY TEST 





SSCNTAG, RE 


(RE + trie LOCATION 10 BE CLEARED 
= wg RE 


LEBR MEMORY LOCATION 
HOSE BACK IF NO 









eSTA UP THE STACK POINTER 
eSscOet QeLOTVEC s40T, VECTOR FOR SCOPE ROUTINE 
SECRADR. guEHTVEC’ ;EMT VECTOR FOR ERROR ROUTINE 
#340 subht veces 






; LEvE 
VEC}; TRAP VECTOR FOR TRAP CALLS 


2;LEVEL 
P 3 ; POWER FAILURE VECTOR 
#249 DRPWRVEC +E s3CE VEL 







TIMES 3 IN Teal Ie NUMBER OF ITERATIO 
ESCAPE ?:CLEAR THE ESCAPE ON ERROR ADDRESS 
#1, $ERMAX !:ALLOW ONE ERR T 





738 OR PER TE 
#., SLPADR 3 NTA THE LOOP ADDRESS FOR SCOPE 








8. /SLPERR :SETUP THE ERROR LOOP ADDRESS 
#4,-(SP} SAVE ERROR VECTOR 

is} -(SP) 

#64$,4 :SET UP TIME OUT VECTOR 

Sw uae TO REFERENCE HARDWARE SWR 

eos BRANCH IF NO TIMEOUT TRAP OCc URS 










:POINT TO SOFTWARE 
neisPReG, Brspuay’ -POINT TO SOFTWARE DISPLAY REG 
+, (SP 3+ *RESTORE STACK 


(Bp )2? aa tIRESTORE ERROR VECTOR 
(SP)+,a84 
SET PROCESSOR STATUS TO : 
wt DaTRAPVEC+2 -TRAP PRIORITY = 
PYEC RO RP VECTOR ADDRESS 
aRPVECr, (RO)+ TIS 1S UNTIMELY INTERRUPTS 
0. (RO) ROH ner SERVICE ROUTINE 
PC, JUSTKINT s INITILIZE THE T 
det IRST IS THIS "erest TIME ROUND 
1$ :BRANCH IF N 
2g 
JeSND! 
+4 sTYPE 9SCIZ STRING 
bes ::GET OVER THE ASCIZ 











tT tae 
DERPUB. P 


ll 


OO0S304 


ome 


006004 
906010 
00&0ie 


OO&01& - Ol 
O0E02 


REGISTER TEST 


Aaa 00S3ie 


| igs 


104400 
300416 


104400 
000432 
104400 
000427 


1044 
CCO41 


012737 


000137 
000240 
005737 


2737 


4 012737 


OOEDSE 
OCE0E2 


005737 
001442 


005412 


‘00SS20 


ocsSte 


o0S6S4 


005740 


177777 


006034 
002256 
035010 
034750 


035250 
034762 
177777 


O04E36 
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OO4E4E 


043024 
OO4S16 


043024 
Oo4s 16 
041404 
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~- 23. ASCIZ (15> «12> /RPOM FUNCTIONAL CONTROLLER TEST PART I (STATIC 2A) - “DERE 
"TYPE +4 + TYPE ASCIZ STR NG. 
Bere asg OVER fH Bee | 
we '$yeASCIZ us daaAbe tke PORT suited ON DRIVE IS LOCKED ON EITHER PORT/ 
Dye +4 3 TYPE ASCIZ STRIN 
BR bas : ove tue Ree f 
an ::.ASCIZ <5) lat’ BE ANGE IS REQUIRED ON PORT SWITCH POWER DRIVE DOWN AND 
: TYPE +4 ;; TYPE ASCIZ STRING 
BR £93 OVER THE ASCIZ 
we 2:.ASCI2Z 15> <1@>/ABAIN AFTER SWITCH CHANGE 
" TYPE +4 s:TYPE ASCIZ STRING 
3R >0$ *:GET OVER THE. ASCI 
ong, 33 -ASCIZ <15><12@>/ALL GCL UNDER TEST MUST BE LOCKED ON CORRECT PORT/ 
a. ~+4 TYPE ASCIZ STRING 
BR ig :GET OVER THE ASCIZ 
vig, #7 ASCHZ <15><12@>/AbL BCL NOT UNDER TEST MUST BE SWITCHED OFF/ 
é $ ; 
TYPE +4 :s TYPE Sele, STRING. 
BR : GET 
ian :;.ASCIZ (15> «12> 08° LOCKED ON THE OTHER PORT/ 
SNDi: MOV 8-1, SaF IRST sNEXT TIME DO NOT GIVE HEADER 






215 THERE Q Poh ock CKUIL=P) ON THE gysen 
:TF SO MAKE ’WAT” TRAPS GO TO ‘WAIT 
sf so Ne MAKE RPO4 INTERRUPTS GO TO FINE 1’ 
IF N 






OT MAKE "WAT’ TRAPS GO TO *WAIT.T’ 
OT MAKE RPOY INTERRUPTS GO TO *TIME 2° 







: THE NEXT LINE IS TO BE ADDED LATER 
AND THE JUMP AND NOP REMOVED 
"FOR NOW NO CLOCK MiLB BE USED 
>MOVO#1S, JBERRVEC;SET TIME-OLT VECOTR 
Sp ae1$ :D0 NOT USE cLock 












NOP 
TST 2ePCLCSR ;REFEPENCE P Pocock STATUS REGISTER 
MOV SWAIT.P. 2NSTRPADS20 «THERE ie A 3. “CLOCK 
MOV BTIMEL, 2BRPYVEC ; THERE IS AP CLOCK SO 
a :VECTOR TO TEMEL 
1S: MOV SWAIT.T asrReA0+20 s THERE IS NO P-CLOCK 
MOV STIME2, DHRPYVEC 
2s: MOV 8-1, SaPRITEN ;CLEAR PREVIOUS ITEM NUMBER. 
TST DaSELECT sWAS IT A 200 START 
BEG TST:  ;BRANCH IF STARTING FROM 200 
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006430 


194400 
000424 


104497 


001403 
013737 


00004 
012767 
012706 
012737 
piers? 


104409 
000431 


104400 
000411 


012746 


012737 
012737 
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008072 


004640 


OC4S40 


000001 
001000 
041250 


99€ 240 
000024 
602206 


o00S06 
177776 
o20009 
006276 


006365 


036714 


024260 
O4le4e 


oocoos 


004626 


173010 
000930 
000004 


oocec4 
172720 
001136 


009030 
000004 
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64S: 






x c ba +4 TYPE Rye: STRING 

::.ASCIZ cag cage shh Bet 9 NY NURGER® 4 BE TESTED ? «15> (12> 
ROQCT 

gic 8177770, (SP) sONLY KEEP LAST 3 EITS 

MOV (SP), a8UNIT :SAVE UNIT TO BE TESTED 

MOV (SP)+, SRUNITSL ‘SAVE UNIT TO BE TESTED 


8EQ 
MOV 


TST1 


QSUNITSL, JSUNIT 






;BRANCH IF STARTING FROM 200 


;SET UNIT NUMBER 


j RERRAAAA RAL ARAL SRAL SELLA SHEA LERALAAELARA RAE LAERALE LLL LSARALLA AEE 


s#TEST l FERENCE EACH RE 
FERENCE EACH REGISTER BY A MOVE INSTRUCTION 

sgarvenbnanneetvsseotooenenenensnesotsanseentenmnvebvon 

MOV #1, STIMES 5400 1 ITERATION 

MOV #Stack, SP OP STACK POINTER 

MOV tReccal, DeEMTVEC: TERROR VECTOR SO T 

;NO_REGISTERS *RE SAVED 

MOV #2$,  Js8ERRVEC’-SET UP FOR cS TIMEOUT 

MOV 824 RO ; THERE ARE 24 “REG TO TEST 

MOV SRHOR Ri 1 NOW HAS ADDR OF ADDR OF FIRST REG. 
18: MOV J(R1)4+, Re READ HARDWARE REG. 

DEC RO :COUNT DOWN 

BNE 15 : BRANCH IF 34 24 NOT DONE 
2s: MOV BERRVEC+2 geeravie aRECTORE” TRAP CATCHER 

CMP (SP)+ (SP)¢4 schERN SI ACK 

MOV -2(R1}, STHP! STORE FAILING REG RO0R 

ERROR 7 ;REGISTER NON EXISTAN 

BIT sSW13, J4SUR : INHIBIT RROR RARNTOUT ? 

NE 4 : BRANCH 

TYPE +4 is TYPE Mascry STRING 

BR 4 GET OVER THE 88Ci 
~ :3.ASCIZ <15><12>/I¢ BASE ADDRESS I if BE CHANGED HALT PROGRAM / 

TYPE +4 ;; TYPE ASCIZ STRING 

BR és$ *:GET OVER THE ASCIZ 
ae 3.ASCIZ <15><12>/AND RESTART AT / 

MOV #BASECH, -(SP) sGET, READY TO TYPE STARTING ADDRESS 

aad [OF “CHANGE OF BASE ADDRESS” ROUTINE 
4$: JMP aasEOP :GO TO END OF PROGRAM 
38: MOV #SERROR, JBEMTVEC; s RESTORE ERROR VECTOR 

-SO THAT REGISTERS ARE SAVED 
MOV #ERRVEC+2, OWERRVEC ; RESTORE TRAP CATCHER 


5 RESRAAAEAALE LL SEEAELEALLARALALE RAAERAAARARAAALARARARARARALTAARARE 


:*TEST 


PARTIAL TEST FOR RHAS FOR UNIT NUMBERS PRESENT 
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0 


BURRLSVAS EVR Lone cow Vou e orer- Owe Vee cata Gap ae 


3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
2 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 
3 


0 + b+ b— 0+ B- & + 8+ b 6 8 b-= 0 B= = Be 8 - 2 bo 0 8-2 -+ bs 0 2 2 0 2-2 2 0 ho 








900901 

1089 
ass 4 
177777 


001125 
001124 
004510 


o00001 


040510 
020000 


C0&S40 


002234 
002214 


000010 


002220 
177777 


o04652 
Oc4653 
0042 
2000 
000670 
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3% CHECK THAT RHAS CAN BE CLEARED BY MOVING ALL ONES 
Te aay 


C 
MOV 1, STIMES ITERATION 

MOV rte. =F ugarck POINTER 

MOV JeRt = RI ADDRESS OF RHAS 
‘ v, 1, al ; THIS mk: RAs (SURPRISED! ) 





BEQ TST3 ;BRANCH IF GOOD 





MOV 3R1, J#SBDDAT ;BAD para 
a#SGODAT 


CLR : GOOD 
MOV P1, J#REGADR a PoE 
ERROR 5 RHA Nees” Rar CLEAR 
H ONES 
5 RERERERERERE LEAL ARE E EEE REEEER EERE LE EERE REALL EEE ER ERER ELE ERLE 
TEST TEST FOR DRIVES PRESENT ite £6 RHAS AND RHCSE 
# THE NUMBER OF RPOY DRIVES P RESENT OUND 
te BY MOVING ALL ONES INTO RHERI W 
1% IN RHCS2 INCREMENTED FROM ZERO 1 ASEVEN 
:% THEN THE SEI BITS IN RHAS WILL GIVE DRIVES PRESENT 
;* THE DRIVE TYPE IS CHECKED TO HAVE 2020 OR 24020 AND THEN 
1% UNITS PRESENT ARE STORED IN A TABLE CALLED *UNITS' 
Lote = epee es saremnsannprn se hs 
MOV #1, STINES. 1 ITERATION 
ar ubig’ AN INIT 
ISR PC, a8 stint sINITILI 
BIT #3, a aeSWR : INHIBIT ERROR TYPEOUT? 
BNE 4§ :BR S 
TYPE +4 33 TYPE AScIzZ STRING 
BR b4$ *GET OVER THE ASCIZ 
a :.ASCIZ <15><12>/LOKING AT RHAS - R04 DRIVES PRESENT / 
4: MOV J#RHAS, RI :R1 HAS ADDR. OF RHAS 
MOV JBRHCSe, Re ?R2 HAS ADDR. OF RHCS2 
CLR aRe. :CLEAR RHCS2- 
MOV SeRHERI RY Ry HAS ADDR. OF RHERI 
1S: MOV #-1,aR4 sOVE ERRORS, INTO RHERI 
INC are ; INC REMENT UNIT NO. 
DEC RO 
BNE 1$ t BRANCH IF 8 NOT DONE 
MOVB R11, a"TOTALAT ;SA VE TOTAL ATTENTION 
?USED IN pDRIVE CLEAR TEST 
CLRB  a@sTOTALAT+1 - CLEAR U PER B 
TSTB ss. MRL TEST FOR ANY DRIVES PRESENT 
BEQ 2$ | IF SOME NOT THERE BRANCH 
IMP XE2 :NONE TH ERE 
2s: BIT #SW13, J#SWR sINAIBIT : ROR TYPE OUT? 
BEG 3$ :BRANCH IF NO 


JMP TSTY ; OUT. 








WWWWWWWOIGIG WI WGIWG) GIGI GIGI 6) III GI) GIO) GIO) 0) IOI GI GI GIGI GI GIGI GI GIGI) LIOIG) 

oe an dd D DUD UDI CO TODED wd ad 0 wd wd =) 9-9 OTe Teer POET eevee pare erarveaoTrerT 

EWM OWONIM Wr--Ow £2 OWONMU £Wifue-Ow -~ 
iB OPEN E Corr DO) GOP FCN CoeDED EP UTE OFUr- aco SOPOT E Coho ta 


‘MAINDEC-11-DERPU-B 
DERPUB.P11 3 


104400 
000412 


MACY11 27( 
TEST FOR D 


006710 


008742 


007044 
007154 


034260 
004606 
000001 
004626 


00117% 
001174 


172632 
024020 
0e00e3 
007410 


007442 


172562 
007470 


17-SEP-76 13: 
aives PRESENT USING 


3$: 


66S: 
67$: 


Ses: 


XE2: 
2s: 


3$: 


4$: 


64S: 


65S: 


NAtTS R3 


VER 
(15><12>/UNET NUMBER 7 
,-(SP) ;GET READY TO TYPE UNIT NUMBER 


/ o--NOT AR’ RP 





3 PAGE 71 } 
HAS AND RHCS2 . | 


Rie e et 
<15><12> NO’ ‘Be I vee : 


33 Tyne Ones Se pants 


15> <a> WaEFENG. ONES INTO ERROR REGISTER #1 FOR ALL UNIT NUMBERS/ 


site ASCIZ STRING 
THE A 


Asc ' 
«15> «12> DES shor SFr ANY art IN THE ATTENTION REGISTER SO ABCRT P 


33 TYPE oes fue nett. i ay 


«159 <12>/76" C5OP ON THIS TEST WITHOUT PRINTOUT SET SWITC 


;G0 OUT 
31, NOUNIT sNO. UNITS PRESENT=1 7. rT 
; JUMP OUT 
; COUNTER - : 
(R3)+ Peay BLOCK TO ALL ONES : if 
38 ;BRANCH IF @ NOT DONE Bak 
WUNITS, R3 ; POINTER 
sinounTT NO... OF UNITS PRESENT _ 4 
JeSTHPO —_STENPORHaY STORAGE ‘ as Sp 
si sga5" "SET CARAY IF ONE IN 0 6IT i. 04) 


S$ 
RS, JRHCS2 ; INSERT UNIT NUMBER 
e400, @RHDT IS THIS A DUAL PORT RPO4 


: BRANCH 


+ areal iis THIS A SINGLE PORT RPO4 


RANCH 
;; TYPE Asclz STRING 
T OVER THE ASCIZ 


33 TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 


7, RHOT= 7° 
»7 (SP) ;GET READY TO TYPE RHOT 


33 TYPE Rac le STRING 
er OVER HE ASCIZ 












FOFUFUUFOFU FO FUFOFOFU FU FOFO ROFUrG ROFOre 
BOI EOS es 
8 8 
ur ~ 
Spon 


gt aS yd at SS 
WONT SOHO 


7704 

3248 aes 
007710 

3250 907712 





013737 
913737 
005337 
005737 


001403 
013737 


013746 
104401 
104400 


MACYLL 27(732) 

Fest bok bales 

001221 

004630 

OO4EDS O04e26 

O04530 O04632 
ue 

004636 

OO44O O04E26 
0001 171406 

010916 171276 

001000 

oocco4 oo4si4 

034556 

p04650 

04626 

004576 O046S0 

on7b52 

004626 

001221 








7-SEP-76 13:23 PAGE 72 
RESENT USING RHAS AND RHCS2 






563: 
BR 5 ;NO RPO4Y FOUND SO SRANCH 
6S: MOV (R3)+ 
TYPE parr 
MOV RS, -(SP) 
TYPDS ; TYPE DRIVE NO. 
INC JBNOUNIT 
SS: INC RS 
BeOS 
MOV JaUNITS JSUNIT 
MOV SENOUNTT, DaNUNIT sSAVE NO. OF UNITS 
DEC :IF NUNIT = 0 UTE ONLY ONE UNIT 
;1F NUNIT MORE THAN O THEN MORE THAN ONE UNIT 
TST aeSELECT :STARTING ADDRESS 200 ? 
BEQ TST4Y — ;BRANCH IF STARTING FROM 200 
MOV JSUNITSL, JHUNIT :SET UNIT NUMBER 
ee re in hhh ae he 
;#TEST 4 TYPE SERIAL NUMBER AND DRIVE TYPE 
3% SET _APPROPIATE ATTTENTION BIT OF UNIT UNDER TEST IN ’ATTE!T’ 
te READ SERIAL NUMBER AND DRIVE TYPE REGISTERS 
x TYPE I OUT AND PROCEED 
:% TO LOOP HERE SET SWITCH 8 No THIS TEST NUMBER ON 
t% CATTCHES O THRU 7 AND RESTAR 


jPeRAeReE ce penneaeeneaeeceaneanannaeaecnneannaeaanane natant 
"MOV #1, STIMES: 3300.1 ITERATION 


- MOV #1$. SLPADR ::SET SCOPE LOOP ADDRESS 
MOV #STACK,SP :RESET STACK 
MOV #4, Se TSTNN :SAVE TEST NUMBER 


JSR PC, JHCLDISK ;SET RI-RHCS1, R2-RHCS2 
*R3-RHDS1, R4Y-RHERL 
‘GIVE RH 1 INITIALIZE 


sSETU UP U 
CLR QUATTENT R 

MOV dau ‘80 CONTAINS UNIT NO 

MOVB ATRGLELROD, DHATTENT ;SET APEROP aTE ATTENTION BIT 
TYPE s; TYPE A ASCIZ STRING 


BR 45 “GET OVER THE ASCIZ 
;;.ASCIZ (15) <12>/ TESTING DRIVE NUMBER / 


MOV. QBUNIT,-(SP) — ;UNIT NO. TO STACK 
Y TYPE ORIVE NO. 
TYPE , SCRLF 


64S: 






NAINDEC-11-DERPU-8 
DERPUS.Pil T 









3260 
562 100 91746 
Bi0gi0 104401 
50s 10016 O0s777 
3266 010022 905777 
? OL 17737 
be Biboss bisa | 
3269 











3273 

327 

3275 

3276 

3277 

3278 

3279 

3280 

3281 010042 000004 
3282 

3283 

3284 C10044 012737 
3285 

3e8& 019052 012706 
3287 010056 004737 
2288 01096e 913700 
3289 010066 Q12720 
3290 010072 9012710 
3231 

3e3e 

3233 010076 012767 
3e34 010104 012711 
3295 010110 013737 
3295 010116 005337 
3e97 010122 001375 
3298 

3239 


3300 010124 104065 
e 
3303 010126 o0040S 


OS 
2308 010130 O2e626 





MACY11 27(732) 


TYPE SERIAL 


007724 


172274 


001221 
007764 


ae 


001176 


008380 


004514 


167672 
001176 


AL NUMBER AND DRIVE TYPE 


06 


17-SEP-76 13:23 PAGE 73 





TYPE +4 $3 TYPE AaSCIzZ STRING | 
BR és$ GET OVE THE ASCIZ 
peg, FF ASCIZ (15) «12> /SERTAL RO. 
“MOV RHSN, - (SP) ss SAVE ORHSN FOR TYPEOUT 
oc ::G0 TYPE--OCTAL ASCII(ALL DIGITS) 
TYPE = : TYPE 8 ASCIZ STR 
BR b6$ i THe Ree fz 
a ::.ASCIZ (15> «129 /DRENE. TYPE 2 
“MOV JRHDT, -(SP) : 3 SAVE JRHDT FOR TYPEOUT 
TYPOC ::G0 TYPE--OCTAL ASCE TALL DIGITS) 
TYPE SCRLF 
1$: TST QRHSN irnD, SERIAL Ny NO. of, DRIVE 


HDT 


my SSN, gugyESHVE TO CHEK JF DRIVE iis Bs oe 


5 EKKRAEEREA RAE RRA EERE AEE EEE EEE EE ERLE AERA ERE AEE REE ER EE ERE EEE ES 
;¥TEST 5 ~ PROGRAM INTERRUPT 


:* PROGRAM INTERRUPT IS TESTED BY SETTING RDY AND IE 
:# THIS SHOULD INTERRUPT THROUGH LOCATION 254 < 
te THE PROCESSOR PRIORITY IS SET TO 4 
jbegensnneeseseeatanennsanatesndteanansananaaeaneaeaneanaataneD 


MOV 86-1,d8TSTNM ©; THIS SAVES TEST NUMBER 
MOV #STACK, SP ;RESET STACK 
ISR PC, UCLDISK CLEAR DISK 
MOV JBRPVEC, RO ;GET_R RP VECTOR ADDRESS 
MOV #RPTRP1’ (RO)+ IS IS FOR TIMELY INTERRUPTS 
MOV #340, (RO) :RPOY INTERRUPT SERVICE ROUTINE 
oe ‘PRIORITY = 7 
MOV #200, PS ;SET PROCESSOR PRIORITY 
MOV #RDY! *RDY, IE IN RHSC1 SHOULD CAUSE INTERRUPT 
MOV suritcnt, aes TH: : COUNTER 
DEC aeSTMP WAIT ER. INTERRUPT 
BNE 1$ ‘BRANCH IF NOT. ZER 
:BER ORE THIS IS ZERO INTERRUPT SHOULD 
ERROR 65 ‘INTERRUPT DID NOT OCCUR 
BR TST& —§;BRANCH TO NEXT TEST 
RPTRP1: CMP (SP)+, (SP)+ RESTORE STACK 






















MAINDEC-11-DERPU-8 
DERPUB.P11 TS 






MACY11 27(732) 
PROGRAM INTERR 


3307 O1C!3e Oee711 d04e00 CMP #DVA!RDY, aR1 ; IE SHOULD BE LOW 
015136 001401 BEQ TST6 ;RANCH IF GOOD 


010140 iC4O6S ERROR 65 ; INTERRUPT OCCURED But 
:IE FAILED TO RESET 


17-SEP-76 13:23 PAGE 74 
UPT 














RRR REE R REE EEE A EEE EERE R AREA AE EERE EE EERE EEE A 
;*TEST 6 INTERRUPT AT PROCESSOR AND DISK PRIORITY SAME Baers 


3% PROCESSOR PRIORITY : SET AT S (SAME AS THE DISK) 
;* IE AND RDY IS SET. THIS SHOULD NOT INTERRUPT 
lll + Slit 


















sic? 010144 012737 O00006 004514 MOV 87-1, 98TSTNM ;THIS SAVES TEST NUMBER 
3358 tate eae 001000 MOV #STACK ar ;RESET aio 
2 10156 47 O34556 i. wan PC aac = :CLEAR DISK 
3328 O10!6e 013700 O02e04 ~ MOV aBRPVE ;GET VECTOR ADDRESS 
336 atte: 12720 piece MOV SRP TRES" tRO)+ : THIS ts FOR UNTIMELY INTERRUPTS 
a 1017e 012710 O0034 MOV #340, (RO) patel Le SERVICE ROUTINE 







3332 ; 
3333 010176 012767 cOO240 167572 MOV a240,PS ;SET PROCESSOR PRIORITY 

3334 010204 012711 900300 MOV #RDY RDY 3 IN RHSC1 SHOULD CAUSE INTERRUPT 
3325 010210 013737 O352e4%6 OO1176 | MOV SHIRT, SaSTMPL:  COUNTE 

3336 010216 005337 O01176 1$: DEC aasTM : WAIT ER INTERRUPT 

3337 010222 001375 : BNE 1$ :BRANCH IF NOT ZERO 

3338 *BEFORE THIS IS ZERO INTERRUPT SHOULD 






3339 s OCCUR 
3341 010224 000402 BR TST7 ;NO INTERRUPT SO BRANCH 









33 

2344 010226 022626 RPTRPe: CMP (SP)+, (SP)+ ;RESTORE STACK 

3345 010230 104065 ERROR 65 INTERRUPT OCCURRED WITH 
si6 PROCESSOR STATUS SAME 
34 AS DISK 


s 










nl Ae St el” | 
DERPUS.P11 


010376 


000004 
012706 
012737 
004737 


012767 
00 


000167 


104400 
000407 


013746 


000413 
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PACK ACKNOWLEDGE 


001000 
000007 
034556 


009000 
004634 


000042 
001100 


000506 
010316 


004626 
010350 


004514 


167516 



















KO6 
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pa} 1+ alltel trib tebrhyiyt +++ aletetieteiiniiaiaatalaiiatatniatel 
? PACK ACKNOWLEDGE 

IF STARTING ADDRESS 220 IS USED THIS TEST WILL NOT SE PERFORMED 


IF _ THE PROGRAM WORKS UNDER ACT-11 MONITOR 
THEN THIS TEST IS NOT PERFORMED 


T- HOH T NT 
Then Neue S Test PERE OR THte FED OMY ON THE FIRST PASS 


UBSE QUENT "PASSE EST IS NOT DONE 
wat TEST att ACKNOWLEDGE COMMAND=44 
IT - RHOS1 BIT #6 


MOL BIT - RHDS1 BIT #12 
OME BRIVE IS STORED NOL IS CHECKED TO BE 0 
ANB pva  SHOULB GED 


THE DRIVE IS POWERED UP 
VV SHOULD BE 0, MOL SHOULD BE 1, DVA SHOULD BE 1 


GO SHOUL “i 
ALL REGISTERS EXCEPT RHDB, RHLA AND RHCC ARE STORED 
A STineD RESTS IS ISSUED 


Terre ee ee ee We 
_ 


lieth teed i i a ta a Tt 


AL D REGISTERS SHOULD BE UNCHANGED 
: EXCEPT 
GBB HEEHEHE HEHE HEHEHE ESE U HEHEHE IGE Ea ate 
tST7: SCOPE 

#STACK, SP RESET STACK 
MOV #7, J8TSTNM :SAVE TEST NUMBER 
ISR PC, J#CLDISK ;SET RI-RHCS1, R2-RHCS2 
*R3-RHDS1, RY-RHER] 
: GIVE RH “11 INITIALIZE 
*SETUP UNIT NUBER 

MOV #0, PS. Meer PROSESSER STATUS To 0 

TST J#NOPUSH 31S THIS 220 STAR 

BNE 1$ “BRANCH IF YES 

TST dee sMONITOR’ cAacT-11) RETURN ADDRESS 

BNE 1$ - TBRANCH IF NONTTOR PRESENT 

TST aesPASS -IS THIS FIRST PASS 

BNE 1$ ‘BRANCH IF NOT FIRST PASS . 
pe BR aE “BRANCH TO CONTINUE TEST , My 
es IMP TST1O ;JUMP TO NEXT TEST A K 

TYPE +4 ;;TYPE ASCIZ STRING 

BR 4g THE ASCIZ 
oe +: .ASCIZ <15><12> Stop DRIVE / 

NOV JRUNIT, - (SP) :GET UNIT UNDER TEST 

TYPE +4 1s TWPE ASCIZ STRING 

BR +} GET OVER THE ASCIZ 
vt 3;ASCIZ / THEN HIT * AONTINUE/< 15> «12> 






06 
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DERPUB.P1 1? PACK ACKNOWLEDGE 


310 Bib408 BoN7e? 026066 Teh PC wy ;SAVE REG IN WC ON 








11 19404 713 010000 T af MOL, aR : N BE =0 
BH BRE Bir HL bedl GPab 33 

13 010412 010337 o01122 MOV z3, asSBDADR FAILING REGISTER RODRESS-RHOS! 
aT 010416 104010 ERROR 10° :0N SPINPLE POWERE 

te 010420 013746 o04626 3S: MOV QHUNIT, -(SP) SUNET NUMBER 
3417 010424 052716 000100 BIS #IR, (SP) INCLUDE IR 
$418 01043 O226l2e  - CMP (sp3+, are : ONLY UNIT NO, AND IR SHOULD BE 
3420 010432 901403 | BEQ 4g BRA ANCH IF RHCS2 GOOD 
3421 010434 010237 001122 MOV R2, J#SBDADR ;FAILING REGISTER ADDRESS-RHCS2 
3422 010440 104011 ERROR 11 WITH SPINOLE POWERED DOWN 
3123 ONLY Uh UNIT NO. AND IR SHOULD BE 




















gue o1o442 004737 O34556 ISR PC, J#CLDISK SET R1-RHCS1, fechHcse 
*R3-RHOS1, R4-RHERI 
3430 ‘GIVE RH 1 INITIALIZE 
3431 ‘SETUP UNIT NUBER 
3432 010446 104400 O104S4 TYPE +4 i; TYPE Wat iz STRING 
3433 0194S2 000410 b$ : GE THE ASCIZ 
3434 ::.ASCIZ (15) <12>/StART DRIVE 
3435 010474 6S: 
3436 010474 013746 ocOo4be6 MOV DRUNIT, -(SP) GET UNIT UNDER TEST 
3437 019500 104404 TYPDS 
3438 010502 104400 010510 TYPE +4 ; 3 TYPE ofiectZ, STR STRING 
3439 O10508 o00420 BR 7g : GET 
3440 :;.ASCIZ / AFTER HEAD E OA HIT RENTTNE «18> «12> 
3441 Oi 675: 
01 000000 
3443 010552 004767 O2s714 ISR PC PUTREG ;SAVE REG IN WC ON 
3444 010556 032713 010000 BIT ty NOL, a ‘MOL IN RHOS1 SHOULD BE = 1 
44S 01056 OOr41 BEQ : BRANCH 
10564 032713 oo0400 BIT GOPR, aR3 :DPR IN RHDS1 SHOULD BE =} 
3447 010570 001406 BEQ S$ ‘BRANCH IF 
3448 010572 032713 op0200 BIT #ORY, IRB ; DRY IN RHOS1 SHOULD BE = 1 
3449 010576 001403 BEQ S$ 
3450 010600 032713 000100 BIT #VV, ORB iW IN RHDS1 1 SHOULD BE =0 
3451 010604 001403 BEQ :B IF WW = 0 (GOOD) 
3452 010606 010337 O01122 S$: MOV R3, J#SBDADR sFAILING REGISTER ADDRESS - RHDS1 
3453 010612 104012 ERROR 12 WITH SPINDLE POWERED UP 
. sy54 RHDS1 SHOULD HAVE VV = 0, MOL = 1 











2456 010614 011100 6S: MOV OR} | RO -GET RHCS1 CONTENTS 
3457 010616 042700 160076 BIC #SC! TRE!MCPE!76, RO ;C CLEAR SC, TRE,MCPE AND 
3458 alt of UNGTIO Of B BITS 
3459 010622 022700 oo4e200 CMP #DVA!RDY, RO :RAC 1 SHOUL 
3460 GO = ss DV as ve oY = 1 
3461 010626 001403 BEQ 75 ‘BRANCH’ IF RHCSI” 1s GOO0D 

1 010137 o0112e MOV R1, J#SBDADR FAILING REGISTER RHCS1 

1 104013 ERROR 13 “AFTER A POWER UP WITHOUT ANY 


INIT RHCS1 SHOULD HAVE 


MRINDEC-11 Rear” MACY! AY dog tf SEP= 13:23 PAGE 77 


DERPUS.P11 PAK 
= :60 = 0, DVA = 1, ROY =1, IE =0 

6 SDISREGARD ALL OTHER BITS 
$8 010636 005777 171410 7$: TST JRHCC sTEST RHCC, IT SHOULD = 0 

3469 O10e42 00141 BEQ 10$ : BRANCH ¢=0 

3479 b10bH4 013737 no2252 o04S10 MOV DHRHCC, IWREGADR :FAILING REGISTER RHCC 

sik Glaese Giver (9S couse © Sen duaeoonr_ ‘eeeepeig? © * © 

3455 Bt BEES tea ERROR 14 aris POWER UP RHCC 

an Aad 

s76 01066 10S: 

3478 010666 004737 O34SS6 ISR PC, J#CLDISK :SET RI-RHCS!, R2-RHCS2 

3479 jR3-RHDSI RY-RHER 

3480 GIVE RH It INITIALIZE 

3481 SETUP UNIT NUBER 

s82 010672 004737 034614 ISR PC, JHCHECK CHECK DVA, Toy MOL , DPR, DRY 

3484 010676 013777 002372 171312 MOV DePKACK,IRHCS1 ;GET READY FOR PKACK 

s8S "PACK ACKNOWLEGDE WITH 22 IN RHCS1 

3187 -  sNOW SAVE REGISTERS FOR COMPARISON AFTER PACK ACKNOWLEDGE 

3489 919704 004037 O34716 ISR RO, J#SAVER ; SAVE REGISTERS 

3490 010710 02210 RHWC HWC IS THE FIRST REGISTER SAVED 

3491 O10712 oo4s22 SAVERE + OTASTING ADDRES OF WHERE 

3492 :T GISTERS ARE SAVED 

3493 010714 oD0022 18. | :NUMBER OF REGISTERS 

S14 *SAVED = 18. 

34968 010716 013777 OO4S16 171260 MOV JBRPYVEC, IRPVEC ;SET RPOY VECTOR ADDRESS 

3497 : TO ‘TINE IF P-CLOCK IS PRESENT 

3498 OR TO *TIME2’ IF P-CLOCK IS NOT PRESENT 

3499 :*TIME? WILL ONLY SAVE 

3500 CURRENT CYLINDER ADDRESS 

3501 "AND LOOK AHEAD REGISTERS 

3504 910724 013746 002372 MOV JEPKACK, -(SP) GET READY TO MOVE COMMAND 

3505 019730 052716 oo000! BIS #G0, (SP) *GET READY TO 

3505 : ‘WITHOUT INTERRUPT ENABLE 

3507 010734 012677 171256 MOV (SP)+, RHCS1 360 WITH 

3508 2 IN RHCS1 FOR PACK ACKNOWLEDGE 

3509 itty INTERRUPT DISABLED 

3510 

3511 

3512 

3513 010740 104410 WAT ;WAIT FOR VV BIT TO SET 

3514 010742 O02240 RHDS1 :WAIT FOR RHOS! REGISTER 

3515 010744 000100 WV :WAIT FOR VV BIT IN RHDS1 REGISTER 

3516 01074 O00001 1. ; ALLOW i0 MICRO SECONDS 

3517 010750 o00c00! 1. Y MUST SET BETWEEN 

#518 ) ‘Og AND 20 MICRO SECONDS 
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3521 010752 004037 035440 JSR RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 
se55 0107S O02e40 RHDS1 ;CHANGE RHDS1 REGISTER 

3524 010760 000001 1 ;i_BIT/BITS TO ae CHANGED 

35eS 01076e 000001 1 NEW VALUE OF VV IS 1 

se58 010764 000100 VV CHANGE VV BIT 

3528 ;NOW COMPARE REGISTERS SO THAT NO REGISTERS 

3529 ;CHANGED EXCEPT VV IN RHDS1 AND IE IN RHCS1 


see 010766 904037 O3SS46 JSR RO, J#COMREG {PRESENT TALL REGISTERS WITH 

3534 ot 77e O04Se2 SAVERE ; GOOD pate SAVED _IN *SAVERE’ 

3535 010774 OU2cbb WC ;TEST DATA STARTING FROM *RHWC’ 
36 010776 900022 18. 18. REGISTERS pi Fearae eo 


see 011002 011010 12$ 7 RETURN TO 12$ ON NO ERROR 


3540 011004 104015 118: ERROR 15 Pe ;GIVING a. PACK ACKNOWLEDGE 
3541 011006 000207 RTS PC CAUSED AN ERROR 

3s4e s PACK ACKNOWL EDGE SHOULD 
3543 :SET VV IN RHDS1 

S44 INTERRUPT SHOULD MAKE 

3545 IE = 0 

seu3 iNG OTHER REGISTERS SHOULD 
3548 6000 DATA GIVES 

sean > alee Rf OF REGISTER BEFORE 


' 3A E 
3554 011010 012737 177777 O41404 128: MOV #-1, J#PRITEM CLEAR PREVIOUS ITEM NUMBER 


3559 ee algerie oe a eg yr > Teac cima neesptcmioe ost 
3560 ;¥TEST ip SET VV BIT #6 IN RHDS1 

3561 7% THIS TEST cers VV IN RHDS1 INCASE 

3562 3% ACT=11 on IS PRESENT AND THE PREVIOUS TEST 

3563 3% IS _NOT — FORM 

3564 ;* THERE IS A RESET AT Ul BEGINING OF THIS TEST 


FOR ERROR RECOVERY ONLY 


3567 Ritttiiitiiiiiiiiiitiiiitittiiirtitititiiitetitiicerirtc tes 
3568 011016 o00004 - TST10: SCOPE 

3570 . ;IN CASE THERE IS ANY DRIVE ERRORS DURING POWER UP 
a n20 108 POWER DOWN OR ANY PARITY ERRORS A RESET IS GIVEN 






000005 
Oe2 004737 040510 JSR PC, d#STKINT ;INITILIZE TK 


Ww 
uw 
Py 
Ww 
oo 
—e 
= 


75 
2$76 011026 Ole70& 001090 





MOV #STACK, SP ;RESET STACK 


o¢ 
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Pi] To §i+ 


me 


Pe fe 


OUD 


LU LPe Py 
Crvervesvert 


“ChROCD” MULE Gatu.e-€) 


OOth OO Ooops 
eR Pe: fl otnDdDtintoto 


1090 2.O.O 
do C OCD ~ 


UR tat 


ih 


t 


tat at ot ck 
FST i: 


vu - - . 
—-OWDONWUL Ee Gite Co 


Metatat at eto ataturutot ot aro 
ao 
eS at 


mono 2000 
e+e -< 0-0 +0 --b-< 
ate ee Sy 
inne CEE @o 
un = 

28 


£Oo@m £0 


T WV #6 IN &HDS! 
Qu2737 «000019 904s14 MUV #10, JeTSTNM :SAVE TEST NUMBER 
DOs737 «-D34S5e ISR PC, JeCLOISk :SET RI-PHCSL. Re-RHCSE 
:R2-BHDS1 


: GIVE Rr} INddec ize 
Pee hy rest ; :SET UP UNIT NUBER 
oOs737 O34é14 Iss Bo SaCcHECK sCHECK DVA,ROE MOL, OPE DRY 


Cis77? =O0es72 171340 MOV DBPKACK SRHCS1 ;GET READY FOR PKAaC> 
: PACK ACKNOWL EGDE mer 22 IN FHCS: 


:NOW SAVE REGISTERS FOR COMPARISON AFTER PACK ACKNOWLEDGE 


204237 O347 18 TSP FD, DaSQvEr SAVE REGISTERS 
uesi0 Reh. HC THE FIRST REGISTES SavED 
oosszz 33 “Ese sg THAT Bo ADDRES OF WHERE 
re 3 THE REGIST bre ore SAVED 
30oczz 18. sNUMBER © necrst = 
;SAVED = 
013777 OO4S16 171106 MOV DSRESVEC DREVEC ;SET REIDY yECTOR AODRESS 
310 ao 2 IF B-CLOCK IS PRESENT 
:0R TO “TIMES IF P-CLOCK IS NCT PRESENT 
;° TIME’ WILL ONLY SAVE 
; CURRENT CYLINDER SODRESS 
AND LOOK AHEAD REGISTERS 
Q13748 02372 MOV DEPKACK,-(SP)  ;GET READY TO MOVE COMMAND 
352718 0060: BIS 860, (SP) :GET READY TO 
¢WITHOUT INTERRUPT ENABLE 
012877 171104 MOV (SP)+, IRHCS! 360 


WITH 
322 IN RHCS1 FOR PACK ACKNOWLEDGE 
WITH INTERRUPT DISABLED 


011100 MOV JRL, RO ;SAVE RHCS1 DURING ABOVE OPERATION 
911305 MOV aR2.RS : SAVE RHDS! DURING ABOVE OPERATION 
104419 ;WAIT FOR VV BIT To. SET 
2249 RHDS1 ‘WAIT FOR RHDS1 RES ISTER 
9951n9 :WAIT FOR VV BIT IN RH5S1 REGISTER 
500s! 1 *ALLOW 10 Myc CRO SECO ONdS 
62 1 :VV MUST SET BETH 
-00 AND 20 MICRO 
:COMPARE CONTENTS OF RHCS1 AND RHOS] SPREADS SAVED IN 
“80 AND RS I NNEDIATELY AFTER GO 
012746 002372 Mov -(SP)  ;SAVE COMMAND 
052716 o04e00 BIS aOvAtROY, (SP)  $INCLUDE DVAIRDY 
611637 001124 MOV (38) daSGDDAT i SAVE FOR PRINTOUT 
022600 CMP 5P)$,R :DURING ABOVE OPERATION ONLY DVA!IRDY 
!AND COMMAND SHOULD BE SET 
oc1495 BE 64S ; BRAN CH IF GOOD 
910027 901126. | MOV RO, DeSSODAT a DATA | 
610137 co4#s15 MOV RI’ JeREGADR FAILING REGISTER RHCS! 






a 
Lv) 
[7Y) 

i] 
Qo - 
-—- 
o- 
7 
o 


34 
3s 011182 
ape Bt i288 
é lit7e 
oe 
3039 911174 
3840 11175 
3841 Oliede 
sete 011208 
Sé43 
S644 011210 
3835 
3646 011210 
3$48 
Sb4S O11216 
3650 911220 
365i Ollece 
5 
3o52 
3és4 










S658 Oll2ze% 
3629 

3680 911230 
3651 CO1ll232 
ssbe 011234 
SSE3 Ollest 
SS84 011240 
3sé5 é 
StS& Olle4e 
3$&7? Olle44 
3658 

3669 

367 

3671 

w7e2 

3673 

3674 

st7é 

Kis 


77 
3&78 O1i246 
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104021 


ai isuE 


194015 
000207 









(732) 
#6 IN 


a35440 


O3SS46 


17-SEP-76 13:23 PAGE 80 
RHDS1 
ERROR 21 fy ate ABOVE OPERATION ONL 


AND OVAIRDY SHOULD "ee SET 
64S: MOV SMOL!OPR! ORY! VV, itSpy SAVE BITS SET DURING OPERATION IN RHOS! 


MOV (SP) as $GDDAT *;SAVE FOR PRINT 
CMP (SP) P)S RE sDURIN NG ABO OPERATION ONLY MOL!DPRIDRY! VY 
3EQ b6$ BRANCH IF GOOD 


MOV RS, 2#$8ODAT 

MOV - 3, a8REGADR BAILING REGISTER RHOS! 

ERROR 63 :DURING ABOVE OPERATION ONLY 
:MOL!DPRIDRY!VV SHOULD SE SET 


s6$: 
JSR RO, J#CHREG sCHANGE BITS IN SAVED REGISTER 
RHDS1 : CHANGE RHDS1 REGISTER 
l - Bea fo we CHANGED 
1 : NEW ALUE 9 VIsSl 
VV : CHANGE VV 


sNOW COMPARE REGISTERS BEFORE PACK ACKNOWLEDGE 
;WITH AFTER PACK ACKNOWLEDGE 


JSR «RO, SeCOMREG ;COMPERE s SAVED REGISTERS WITH : ~ 
SAVERE 5000 DATA SAVED. IN " SAVERE” 
;TEST DATA STARTING FROM "RHUC* 
3. 719. REGISTERS TO_SE COMPARED 
18 : ‘RETURN 7313 ON 
35 TRETURN 19 28 ON NO ERROR 
18: ERROR 15 GIVING A PACK ACKNOWLEDGE 
RTS ss PL CAUSED AN ERRO 


PACK ACKNOWLEDGE SHOULD 
SET VV IN RHOS1 
3 IN NTERRUPT SHOULD MAKE 


IE = 
:NO OTHER REGISTERS SHOULD 
GOOD DATA GIVES oe eee 


; CONTEN 
ah OF REGISTER AFTER COMMAND 


jaeeunessenenansoseazsannensnasnenesnenenaconnecananseracansenys 
:#TEST 11 OPERATION FUNCTION TEST ‘ 

 & ALL POSSIBLE REGISTERS ARE CLEARED THEN A” NOP” =0 

,% IS GIVEN NO CHANGE SHOULD HAPPEN 





























DERP: 


a 
bo & 


Paotatattatc ated 
BRR LS 


3639 
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011288 


Cilz72 


011320 
011324 


011330 


a 
Bi5598 


004737 
004737 


013777. 


004037 
002210 
0C4S2e 
000022 


013777 


013746 
052716 


012677 


104410 


004037 


901000 


000011 
034556 


034636 


002334 


03471 


004516 


002334 
090091 


170662 


035546 


0045i4 


170716 


170664 


UNCTION TEST 


1?-SEP-76 13:23 PAGE 81 


2% ALL POSSIBLE REGISTERS ARE FILLED WITH ONES THEN A “NOP” 
:* IS GIVEN NO CHANGE SHOULD HAPPEN 
© RESRARASHSSREHSARSALS SALAS ASEFLA SA SSRSRASLHELAARSSSSSAEHSSSE SELLE 
tST1l: SCOPE 
V BSTACK, SP RESET STACK 
MOV sil, aatSTNm :SAVE TEST NUMBER 
JSR PC, J¥CLDISK ran sRHCSI R sRHCS2 
-RH 
: GIVE Reel INITIAL 2E 
ieiy UP UNIT NUBER 
JSR PC, S@CHECKT : CHECK Bva. ROY, MOL,DPR, ORY, VV 


MOV DBNOPERA,@RHCS1 ;GET READY FOR NOPERA 


NO OPERATION WITH O IN RHCSL , 


;NOW SAVE REGISTERS FOR COMPARISON AFTER NO OPERATION 


JSR RO, J8SAVER ; SAVE REGISTERS 
RHWC :RHWC_IS THE FIRST REGISTER SAVED 
SAVERE ; STARTING ADDRES OF WHERE 
; THE REGISTERS ARE SAVED 
18. ;NUMBER OF REGISTERS 
SAVED = 18. 


NOV DaRPHVEC,GRPVEC ;SET RPO VECTOR ADDRESS 

:TO 'TIMEL' IF P-CLOCK IS PRESENT 
:0R TO *TIMES’ IF P-CLOCK IS NOT 
;*TIME’ WILL ONLY SAVE 
SCURRENT CYLINDER ADDRESS 
SAND LOOK AHEAD REGISTERS 


T PRESENT 


MOV JBNOPERA, -(SP) ET BER READY TO MOVE COMMAND 
BIS 8G0, (SP) Y T0 

ET HoGTS INTERRUPT ENABLE 
MOV (SP)+, IRHCS1 +49 WIT H 

IN RHCS1 FOR NO-OPERATION 

er INTERRUPT DISABLED 
WAT sWAIT FOR RDY BIT TO SET 
RHCS1 WATT FOR RHCS1 REGISTER 
RDY ‘WAIT FOR ROY BIT IN RHCS! REGISTER 
1. "ALLOW 10 MICRO SECONDS 
1. =RDY MUST 'S 


Y ET BETWEE 
00 AND 20-MICRO SECONDS 


;NOW COMPARE REG JSTERS BEFORE NO-OP COMMAND 
:WITH AFTER NO-OP COMMAND 


JSR RO, J#COMREG 





;COMPARE SAVED REGISTERS WITH 
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011370 
011378 


011374 
011400 


011404 


011410 
011414 


011429 
0il4e4 
011430 
011434 
011440 
011444 








Tll 


004737 


012700 
012720 


012730 
Bie730 
012730 
012730 
012730 
012730 
012730 
012739 


12714 
00Sele 


MACY11 





NO OPERATION FUNCTION TEST 


O34S55 
002210 
177777 


177777 


043010 
001409 


oocsco 
177777 
ococ0s 
177777 
177777 
o00c00 


CO4ES2 
000010 


177777 


1$: 


87S: 


SAVERE 
W 


17-SEP-76 13:23 PAGE Se -. 





; PRESENT y YE 
:6000 DATA SAVED IN ’SAVERE’ 






318. REGISTERS 

SRETURN TO 1$ ON 
RETURN TO 2$ ON AO RORROR 
;GIVING o NO-OP COMMAND 
;CAUSED AN ERROR 
NO REGISTERS SHOULD CHANGE 
:G00B DATA Give? yt My 
;CONTENTS BEFORE C 
RECEIVED DATA aves, REGISTER 
;CONTENTS AFTER COMMAND 


;NOW REPEAT TEST BY MOVING IN ALL POSSIBLE ONES 


JSR 


MOV 
MOV 


MOV 


81S 
MOV 


MOV 
MOV 
MOV 
MOV 
MOV 
MOV 


PC, d#CLDISK 


BRHWC , RO 
817777, 9(RO)+ 


#177777, a(RO)+ 


#43010, 9(R0)+ 
#1400, 9(RO)+ 


#0,a(RO)+ 
#177777 ,a(RO)+ 
#0,a(80)+ 
8177777, a(RO)+ 
#177777, a(RO)+ 
#0,a3(RO)+ 


;SET RI-RHCS1, RE-RHCS2 
:R3-RHOS! RI} 

GIVE RH Lt INITIALIZE 
:SETUP UNIT NU 

tr OR OF UDR OF RHWC IN RO 
*LOAD 177777 INTO RHWC 
;LOAD 177777 INTO RHBA 


;LOAD 43010 INTO RHCS2 
:LOAD 1400 INTO RHCSI1 y 


;LOAD O INTO RHER1 


sLOAD 177777 INTO RHDST ae 
sLOAD 0 INTO RHER2 NS 
sLOAD 177777 INTO RHOF 


;LOAD 177777 INTO RHCA 
;LOAD 0 INTO RHERS 


;NOW SET BITS IN RHAS FOR ALL DRIVES PRESENT 


RO, -(SP) 
aR4,-(SP) 
aR2, - (SP) 
SSTOTALS 


#9. ,RE 


PUSH RO ON STACK 
tAOVE RHERI TO REINSTATE LATER 


SAVE RUCSE. 10 ne HAVE BEEN SET 


GET DRIVES Pree 
; FAR RHCS2 aoe BARRY 
sGET BIT INTO CAR 

: BRANCH 5 ONtT ON THIS BIT 
MOVE IN ; ERROR REGISTER 


TA 
INCREMENT RHCS2 TO NEXT UNIT 











NAINOEC=11-DERPU-B 
DERPUB. 


Pil Tll 

3891 011502 005305 
ae) Bi lage 061371 
st-3 QO11506 Qletle 
3894 011519 012614 
3805 O11fle 012600 
3805 611514 005720 
3807 
3808 
3809 O11Sié 012730 
3810 
38il 
3gle 
3813 
seit 611822 004737 
3816 O11526 013777 
817 

“18 

219 
2220 
3821 
3822 011534 004037 
3823 011540 o02210 
3824 .O11542 o04S22 
3825 
3826 911544 000022 
3827 
3828 
3829 O11S546 613777 
3830 
3831 
2332 
Ey 

834 
3835 
3836 
3327 011554 013746 
2833 Cl1560 OSe71eé 
2839 
3840 O11564 9012677 
3841 
3842 
3843 

3844 
2845 
2846 011570 104410 
3847 011572 002216 
3848 011574 000200 
3849 011576 900201 
3850 (11600 00000: 
3851 ; 

3852 

2853 011602 9005737 
2854 Cil6é0& 001003 
2655 011610 042737 
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177776 


on2224 170462 


034716 


OO45iS 170430 


002334 
000001 


170426 


004632 


100000 004530 
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NO OPERATION FUNCTION TEST 


. JSR 
MOV 


RS OUNT 
97 BRANCH IF 8 NOT DONE 
(SP)+, aRe REINSTATE RHCS2 
(SP)+'aR4 ;REINSTATE RHERI 
(SP)+'RO «POP STACK INTO RO 
(RO)+ ket T OVER PHAS IN RO 


#177776,9(RO)+ ;LOAD 177775 INTO RHMR 


- PC, J#CHECKT ;CHECK DVA,RDY,MOL,DPR,ORY, VV 


JBNOPERA,SRHCS1 ;GET READY FOR NOPERA 
:NO OPERATION WITH O IN RHCS1 


;NOW SAVE REGISTERS FOR COMPARISON AFTER A NO-0P 


ISR 

RHi 
SAVERE 
18. 


MOV 


MOV 
BIS 


MOV 


TST 
BNE 


BIC 
: CHANGE REGISTERS TO EXPECTED VALUES 


RO, J#SAVER +43 REGISTERS 


;RKWC_IS THE FIRST REGISTER SAVED 
OF WHERE 


'THE REGISTERS ARE SAVED 
INUMBER OF REGISTERS 
AVED = 18. 


QBRPYVEC, IRPVEC ‘mT, aa VECTOR ADDRESS 
*TIMEL’ IF P-CLOCK IS 


PRESENT 
‘OR TO. Whe ony IF ee IS NOT PRESENT 


TIME? WI 
‘CURRENT CYLINDER ADDRESS 
AND LOOK AHEAD REGISTERS 


READY 
HATTHOMT INTERREPT ENABLE 


(SP)+, ORHCS1 360 WITH 
IN RHCS1 FOR NO-OPERATION 
shath INTERRUPT DISABLED 


JBNOPERA, -(SP) 3 GET READY ut ove COMMAND 
#G0, (SP) 


;WAIT FOR ROY BIT TO SET. 
;WAIT FOR RHCS1 


REGISTER . 
- WAIT FOR RDY BIT IN RHCS1 REGISTER 
; SECONDS 


SET BETWEE 
00 AND 20 MICRO SECONDS 
pearer 
#100000, d#SAVERE+5 








ne ee 


Ne ete 
DERP 





732) 


1 e7( 
ATION 


NO OPER 
OO46SO O04S46 


025440 


035546 


UB.Pil 
38S7 
3858 O11616 043737 
O11¢24% O04037 

tas 011620 o0224C 
see4 011632 090001 
S865 011634 000000 
3865 O1163& 160000 
35C 
386 
3870 
3871 
3872 
3873 01164C 004037 
3875 011644 O04S2c 
S876 Olle¥é QOO02266 
33 011650 O000¢e 
3878 OQO1165e O11656° 
3873 O11654 O11&62 
3280 
388i OLIESE 104016 
3882 11660 000207 
3883 

. 2384 
388S 
3386 
3887 
2888 011662 
2889 
3390 


re eS 





















GO7 
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FUNCTION TEST 


BIC DATTENT, eSAVERE+24 ;CLEAR APPROPIATE ATA BITS 
;FOR WORKING DRIVE IN SAVED RHAS 


JSR RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 
RHDS1 ;CHANGE RHDS1 REGISTER 

1 $f BIT /erTs pe, * CHANGED 

C VALUE OF ATA IS 0 

ATA CHANGE ATA BIT 


;NOW COMPARE REGISTERS BEFORE NO-OP WITH 
:AFTER NO-0? COMMAND 


JSR RO, 28COMREG 3CO SOON Gee Ad REGISTERS WITH 


SAVERE 6000 DATA "SAVED IN *SAVERE’ 
WC ;T ST DATA STARTING FROM pe” 
18. 538. ume TO_ BE COMPARED 
3$ TQ 3$ PROR 
4$ — ‘RETURN TO 4$ ON No ERROR 
3$: ERROR 16 ;GIVING A NO-OP COMMAND 
RTS PC ‘ 


:C ; 
NO REGISTERS SHOULD CHANGE , ‘ 


COMMAND 
;RECEIVED DATA GIVES REGISTER a 
:CONTENTS AFTER COMMAND 





4$: 


07 
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DERPUB.P Tle DRIVE CLEAR 


5 RRRHRAARARRESE LAHAK s SERFS CLEA AAARALEREAAFREL AERA RLF LE LALAELELERE 


i3TEST “fut sau alts” GALL REGISTERS ARE FILLED 
+ XCEPT GO, CLR, TE PAT, MCPE, UPE 


;* ' N 5 BRL 
;* THEN & REGISTERS AR ARE CHECKED TO HAVE APPROPIAVE \OLUE 


MA on Wah 25 Arte Mim Bh Bion Bere ern Bones 3 
oocous tsTi2: SCOPE 
"12706 001000 MOV #STACK, SP ;RESET_STAC 
Ole737 OOfdle oo4s14 MOV #i2,a8tSTNM -SAVE TEST NUMBER 
904737 634556 ISR PC, J#CLDISK ;SET RI-RHCS1, Re-RHCS2 

-R3- BHDS1 4-RHER | 

is me INITIALIZE 

004737 034636 JSR C,QaCHECKT : CHECK DVA,RDY, MOL ,D?R, DRY, VV 


012700 002210 MOV #RHWC RO sADDR. OF ADDR. OF RHWC IN RO 
012730 177777 MOV #177777, a(RO)+ LOAD 177777 INTO RHWC 


Ole73C 177776 MOV #177775,a(RO)+ ;LOAD 177776 INTO RHBA 


011722 052730 043010 BIS #43010,a(RO)+  ;LOAD 43010 INTO RHCS2 
011726 012730 091409 MOV #1400,9(R0)+ LOAD 1400 INTO RHCSI 


011732 012730 oD0000 MOV #0, a(RO)+ ;LOAD O INTO RHERI 
011736 012730 177777 MOV 8177777, a(RO)+ ;LOAD 177777 INTO RHDST 
011742 012730 oooo0c MOV 80, a(RO)+ sLOQD 0 INTO RHER2 
011746 012730 177777. MOV #177777, a(R0)+ ;LOAD 177777 INTO RHCF 
011752 012730 177777 MOV #177777,a(RO)+ ;LOAD 177777 INTO RHCA 
012730 ooo;00 Ct MOY #0, 9(RO)+ ;LOAD O INTO RHER3 
NOW SET BITS IN RHAS FOR ALL DRIVES PRESENT 
RO, -(SP) ; {PUSH RO_ON STACK 
RG, -(SP) :CAVE RHERI TO REINSTATE LATER 
aR2;- (SP) ; SAVE Rhee? TO BE REINSTATED 
sBETER ALL aqA BITS ix AOEEN SET 
oo46S2 QsTOTALAT, RO PRESENT 


000010 


Because 


33 
33 
3° 
33 
33 
33 
33 
33 
33 
33 
33 


TU bo ot 2 bo pe he 
—-OO0ONO VN CWlH-O 


8 


TO CARRY 
# 8s$ H IF NO UNIT ON THIS BIT. 

177777 HOVE NTO ERROR REGISTER 
‘nr RHCS2 TO NEXT UNIT 


84S arte ¥ 8 NOT DONE 
ile aRe NSTQTE RHCS2 
(SP)+, aR4 ; R 
(SP)+,RO ; 3 POP STACK INTY RO 








MAINDEC-11-DERPU-B 
DERPUB.P1! Tle 


012026 
012030 


012034 
O1eC42 


O00 20000 


OOOVOOO000O0 F280 DOO0O00000 
Oh ae hh eh he 


005720 
012730 


017737 
o13777 


013746 
052716 


012677 


104410 
002216 


MACY11 27(732) 


DRIVE CLEAR 
TsT 
177776 MOV 
170212 OO4S64 MOV 
do4sié 170134 MOV 
o02342 MOV 
900001 BIS 
170132 Mov 
WAT 
RHCS1 
RDY 
1. 
1: 
oc4632 TST 
BNE 
100000 004530 BIC 
034460 , 
177777 
o34460 JSR 
RHBA 
177776 
DO4S26 CLR 
QO4626 O04526 BIS. 
o3s440 JSR 
RHCS2 
Z 
1 
TR 
1 
Bal 
034460 JSR 
--RHERL 
o34460 TSR 
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*NOW LO 
JSR "Ro. 
RH 


107 


(RO)+ ;GET OVER PHAS IN RO 


#177776,0(RO)+ ;LOAD 177776 INTO RHMR 


DRHCC, IUSAVERE+42 ;SAVE RHCC IN SAVERE TABLE 
DBRPYVEC, RPVEC ; ;SET RPOY VECTOR RODRESS 
519 + Tre Ire CLOCK S PRESENT 
:0R TO TIMES’ -€LOCK IS NOT PRESENT 
:* TIME? WILL ONLY SAVE 
s CURRENT CYLINDER 





ADDRESS 
LOOK AHEAD REGISTERS 


JOCLEAR, -(SP) sGET READY 19 HOVE COMMAND 
#60, (SP) ;GET RE EADY T 0 SET GO 
; sHITHOUT INTERRUPT ENABLE 
(SP)+,ORHCS1 = ;G0_WITH 
-10 IN RHCS1 FOR DRIVE CLEAR 

WITH INTERRUPT DISABLED 

;WAIT FOR ROY BIT TO SET 

*WAIT FOR RHCS1 REGISTER 

_ =WAIT FOR RDY BIT IN RHCS1 REGISTER 

*ALLOW 10 MICRO SECONDS 

:RDY MUST SET 

:00 AND 20 MICRO SECONDS 
QeNUNIT 


- +10 

#100000, J#SAVERE+6 

AVERE* WITH eer! D VALUE 

#F ILLRE 5 INTO SAVED RHWC 
SavED REGISTER TO CHANGE 


:MOV_ 177776 INTC SAVED RHBA 
; SAVED REGISTER TO CHANGE 


‘CLEAR LOCATION FOR RHCS2 
;PUT UNIT # BACK IN THE SAVED RHCS2 | 


RO, J#F ILLRE 


JeSAVERE +4 
JaUNIT, Ee eel 


RO, J#CHREG ote aITs IN SAVED FSEGISTER 
;CHANGE RHCS2 REGISTER 
;@ BIT/BITS TO BE or oe 
dst VALUE OF_IR IS 1 
;CHANGE IR BIT 
;NEW VALUE OF BAI IS 1 
; CHANGE BAI 


;MOV OQ INTO SAVED RHER1 
; SAVED REGISTER TO CHANGE 


A 
MOV 17437 INTO SAVED RHDST 


RO,@#FILLRE | 


RO, J#F ILLRE 
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DERPUB.P1l - Tle DRIVE CLEAR Me 


4004 012200 002222 RHDST ; SAVED REGISTER TO CHANGE 
WODE Tea ee 034460 . 4733? RO, D#F ILLRE RHER2 
ups Bts8i¢ Bocesa Ahere | * Sie HES te aie 
woos pista 034460 OR RO, J#F ILLRE iy 1 NTO SAVED RHOF 
} , 8 

ey HEA BB is, © ROA PORE 
apt piSsss AseRG8 034460 $4g000 RO, J#F ILLRE ibaTa 1777 INTO SAVED RHCA 
4013 Olee3c 902230 RHCA :SAVED REGISTER TO CHANGE 
4014 1 00177 777 Data 
4oIs Ol 4037 O34460 SR RO, J#F ILLRE MOV O INTO SAVED RHER 
4016 012240 002232 RHER3 :SAVED REGISTER TO CHANGE 
ie Been SORE i 
4018 1eo44 Ol oo4ese2 MOV QSTOTALAT,-(SP) : sGET ALL BITS OF DRIVE & PRESENT 
4020 Qt 3716 OO46S0 BIC #ATTENT. (SP) _ CLEAR WORKING DRIVE BIT 
4021 {3529 12637 OO4S4E MOV - (SP)+,a8SAVERE+29 ; MOVE THIS INTO RHAS FOSITION 
10e8 ;0F SAVERE TABLE 
4024 012260 O04037 934460 JSR RO, JF ILLRE :MOV 400 INTO SAVED RHMR 
4025 Olec64 002236 RHMR s SAVED REGISTER TO CHANGE 
1c Ole266 o00400 400 : DATA 
4028 012270 38: 
4029 O12270 o04037 O24460 JSR RO, 24F ILLRE ;MOV 10700 INTO SAVED RHDS1 
4030 012274 O02240 RHDS1 s SAVED REGISTER TC CHANGE 
403) 012276 010700 10700 : DAT 
4033 012300 013737 002320 oo4ssH 4$: MOV Q#DT, DHSAVERE+32 BOVE DRIVE TyPE IN INTO RHOT 
4O3S 012306 013737 oO02322 oD4SsSE MOV DaSN, JSAVERE+34" : MOVE SERIAL NUMBER NTO RHSN 
4036 POSITION OF SAVERE TABLE 
4938 012314% O04037 O34460 JSR RO, JF ILLRE :MOV © INTO SAVED RHEC! 
4039 012320 O02246 RHEC1 ; SAVED REGISTER TO CHANGE 
4049 Oleze2 O00000 Q . 
4041 O12324 604037 oO34460 ISR FO, O#F ILLRE Rov 0 INTO SAVED RHEC2 
4942 012230 O02250 RHEC2 s SAVED REGISTER TO CHANGE 
4043 Oi2332 900000 0 :DATA 
4O4S 012334 004937 035440 JSR RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 
HOB 012340 o0e216 RHCS1 “CHANGE RHCS1 REGISTER 

' 4048 o1e342 oco0001 1 :1 BIT/BITS To. BE CHANGED 
4949 912344 O00001 1 NEW VAL UE OF PAR IS 1 
4050 012346 000010 PAR CHANGE PAR BIT 
4052 ;NOW THAT SAVERE TABLE HAS BEEN LOADED WITH 
4053 : “EXPECTED VALUES, THE REGISTERS WILL BE COMPARED 
4054 WITH SAVERE TABLE 
ee 
4057 012350 004037 oO3S5S46 JSR RO, J#COMREG ;COMPARE SAVED REGISTERS WITH 
use “PRESENT V 


VALU 
4059 012354 (C04 Ae SAVERE :GO0D DATA SAVED IN *SAVERE’ 





a. Sa ; 









oes 04 
































wees DIS3e4 


O18370 


0le37e 


01237e 
012374 
012400 


012406 


MAINDEC-11-DERPU-8 
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4060 Tea 


Tl2 


uss 
ee 
1e37e 


04017 
0207 


000004 
012706 
012737 


004737 


005737 
001402 
000167 
005737 
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DRIVE CLEAR 


001000 
000013 


034556 


OO4E34 


000462 
000042 


004514 
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; TEST acer gt FROM *RHWC’ 


We 

os AP ruBR TS Ee on cfg 

6$ ;RETURN TO es ON NO ERROR 
S$: ERROR 17 ; DRIVE Aa COMMAND 

RTS PC GAVE AN y OR 

6 OD DATA HAS WHAT SHOULD 
IN REGISTER AFTER A 
CL 


EES vob DATA HAS WHAT 
: THE REGISTER ACTUALLY 
; CONTAINED 


6$: 


Pea emi ere ieee eae 
IF STARTING ADDRESS 220 IS USED THIS TEST WILL NOT SE PERFORMED 


F THE PROGRAM WORKS UNDER ACT-11 MONITOR 
HEN THIS TEST IS NOT PERFORMED 


IF_NO_ACT-11 MONITOR IS “aes THEN 
THIS TEST IS _PERFO Y_ON THE FIRST PASS 
ON SUBSEQUENT PASSES THIS TEST IS NOT DONE 


KOK 
—~ 
m 


THIS TESTS THE READ-IN-PRESET COMMAND 
FIRST THE DRIVE IS POWERED DOWN AND UP IN ORDER TO 
RESET W-BIT #6 IN-RHDS1 

THEN ALL WRITE BITS OF ALL REGISTERS fet FILLED 
WITH ONES EXCEPT GO,CLR,IE,PAT,MCPE 

ATA FOR DRIVE UNDER eet 15 MADE = “— 


THEN A READ-IN-PRESET ae = 20 IS GIVEN 
THEN ALL REGISTERS ARE TEST 
THE FOLLOWING SHOULD BE F 3 spy yet CONTENTS 


RUCA = 0, RHOST = 0, RHOF 
MT22 = 0, ECI = 0, HCI = 0, RHDS1 SHOULD HAVE VV = 
ALL OTHER REGISTERS SHOULD One UNCHANGED 


=» KLEKZKAEREKAAEAERS LALA AAAEAEKSESLERAAAERER HAE REA AA RKRRESAARTESE 
tST13: SCOPE 
MOV - -#STACK,SP ;RESET STACK 


Sd he he eee eee te ie ie ce ie Te te ee Te eh et 


ee ee ee ee ee ee ee ee 


MOV #13, a8TSTNM :SAVE TEST NUMBER 

ISR PC, J¥CLDISK SET R1-RHCS1 R2-RHCS2 
*R3-RHDS1, R4Y-RHE 
: GIVE a INITIALIZE 
‘SETUP UNIT NUBER 

TST J#NOPUSH wet HIS 220. START ~ 

BEQ BRANCH IF N 

JMP TST14 =; JUMP TO NEXT TEST 

7S: aee sMONITOR (ACT-11) RETURN ADDRESS 
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sa 


Th Oe ee Oe 


Ff omotoenn 


QO0000 OB0000000 GO00O 
a 
n 


a a ee oo b> 6 b+ Ob be i 


furu 
Ht th 
wit 
orn 


Oleble 
012616 
Oleb22 
012626 
012632 
012636 


Oleb4e 


Opera? 


001001 
000402 


000167 


012700 
012730 
012730 


052730 
012730 


012730 
012730 
012730 
012730 
012730 
012730 


010046 
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001100 


000440 
012454 


004626 


001221 
010000 


012520 


004626 
001221 
010009 


034556 


034614 
002210 
177777 
177777 


043010 
001400 


000000 
177777 
000000 
177777 
177777 
000000 


LO? 
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1$: 
es: 


64S: 


3$: 


655: 


4$: 


- “9 NITOR 
eye deSPASS iTS TH THIS TFIRST PHS 
BNE 1$ NOT FIRST PASS 
BR 2$ BRANCH i CONTINUE TEST 
IMP TST14 ; JUMP TO NEXT TEST 
TYPE +4 ; 3 TYPE ASCIZ STRING 
BR 64s iGeT OVER | THE ASCIZ 
:;.ASCIZ ¢15><12>/StOP OR 
MOV JSUNIT, -(SP) ;GET UNIT UNDER TEST 
TYPDS 
TYPE $CRLF 
BIT MOL, IRB *MOL WILL BE HIGH TILL STOP IS HIT 
BNE 33 ;WAIT TILL STOP IS HIT 
TYPE +4 3; TYPE ASCIZ STRING 
BR S$ T OVER THE ASCIZ 
;;.ASCIZ (15> <12>/StART DRIVE’ 
MOV DRUNIT, -(SP) ;GET UNIT UNDER TEST 
TYPDS 
TYPE SCRLF 
BIT MOL, aR3 MOL WILL BE LOW TILL FILE READY 
BEQ 4§ WAIT TILL FILE READY 
ISR PC, J#CLDISK SET RI-RHCS1, R2-RHCS2 
?R3-RHDS1, RY-RHERL 
GIVE RH-11 INTTIALIZE 
: SETUP UBER 
ISR PC, JRCHECK :CHECK DVA,RDY,MOL, DPR, DRY 
MOV #RHWC, RO sADDR. OF ADDR. OF RHWC IN RO 
MOV #177777, a(RO)+ ;LOAD 177777 INTO RHWC 
MOV #177777,a(RO)+ ;LOAD 177777 INTO RHBA 
BIS #43010,3(RO)+  ;LOAD 43010 INTC RHCS2 
MOV #1400,a(R0)+ LOAD 1400 INTO RHCS1 
MOV #0, 9(RO)+ ;LOAD O INTO RHERI 
MOV #177777, a(RO)+ ;LOAD 177777 INTO RHDST 
MOV #0, 9(RO)+ ;LOAD O INTO RHER2 
MOV #177777, 9(RO)+ ;LOAD 177777 INTO RHOF 
MOV #177777, (RO)+ ;LOAD 177777 INTO RHCA 
MOY #0, (RO)+ 


;NOW SET BITS IN RHAS FOR ALL DRIVES PRESENT \ 


MOV 


RO, -(SP) 


;LOAD 0 INTO RHER3 


;;PUSH RO ON STACK 





07 
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DERPUB. P11 T13 READ-IN-PRESET 
4172 012644 O11446 MOV R4,-(SP) ;SAVE RHER I ATER 
ato Bee de Biiaue MOV oho’ - -(5P) BOVE RHC 1 BE REY RerateD 
aioe 1 004652 MOV #TOTALAT, RO OFT DRIVE aia alr Me sEEN 
4126 bist 3 ne : ; CLR aa ‘ it Ea Aueee BND CARRY 
4] 12656 000010 MOV #9. ,RS TER 
4128 Diebbe 006 86$: OR RO GET BIT INT 0 CARRY 
4179 012664 BCC 875 - $BRANCH IF NO UNIT ON THIS BIT 
4180 012666 10308 177777 MOV #-1,9R4 HOVE INTO, Ee ERROR REGISTER 
4182 012672 oos212 87S: INC JRe * INC REMENT ReeS2 TO NEXT UNIT 
4183 012674 905305 DEC RS sCOUNT 
4i84 012675 001371 BNE 86S “BRANCH IF 8 NOT DONE 
4igs bie700 012612 MOV (SP)+, aRe *REINSTATE RHCS2 
4186 Ole702 O12614 . . MOY (SP)+' ORY REINSTATE RHERI 
4187 012704 O12600 . MOV (SP)+°RO POP STACK INTO RO 
4188 012706 o0s720 « TST (RO)+ faET 0 OVER PHAS IN RO 
4190 
aig 012710 012730 177776 MOV #177776, 3(RO)+ ;LOAD 177776 INTO RHMR 
4193 
4138 012714 053777 OO4SO 167312 BIS JSATTENT, IRHAS sCtEAR WORKING DRIVE ATA 
4196 
4197 012722 013777 002374 167266 MOV DREADIN, RHCS1 ;GET READY FOR READIN 
4198 : *READ IN WITH 20 IN RHCS1 







4201 iNOW SAVE REGISTERS FOR COMPARISON AFTER READ-IN COMMAND 
4202 012730 004037 034716 JSR RO, J#SAVER ;SAVE REGISTERS 

4203 O1e734 002210 RHWC RHWC_IS THE FIRST REGISTER SAVED 
4204 012736. 004Se2e SAVERE i STARTING ADDRES OF WHERE 


OS 
4206 Ol2740 000022 18. NUMBER OF. fms ISTER 















4209 Ole742 013777 OO4S16 167234 MOV AURPYVEC, DRPVEC ; ;SET RPOW VECTOR ADDRESS 

4210 :TO *TIMEL’ IF P-CLOCK IS PRESENT 

4211 a :OR TO ’TIME2’ IF P-CLOCK is NOT PRESENT 
e L_ONLY SAVE 


4213 a 4 ‘CURRENT CYLINDER ADDRESS 
4O14 AND LOOK AHEAD REGISTERS 


4216 012750 013746 002374 MOV JREADIN,-(SP) ;GET READY TO MOVE COMMAND 
4217 012754 052716 OO0001 “BIS #G0, (SP) GET READY TO SET 
4218 :WITHOUT INTERRUPT ENABLE 
4219 012760 012677 167232 MOV (SP)+, JRHCS1 309, WITH 

IN RHCS1 FOR READ IN 
4221 shitty INTERRUPT DISABLED 
















* 4eeS 012764 104410 WAT ae ;WAIT FOR VV BIT TO SET 
Weee Ole766 002240 RHDS1 :WAIT FOR RHDS1 REGISTER 
4227 012770 000100 WV sWAIT FOR VV BIT IN RHDS1 REGISTER 
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HCI = CI =0 
4283 :RHDS! Sot HAVE W = 1 


y22g o1e772 O00! 1. ;ALLOW 10 MICRO SECONDS 
y229 012774 900001 1. ;WV MUST SET BETWEEN 
vy , 300 AND 20 MICRO SECONDS 
“ iNOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 
4233 012776 04037 O34¥60 is RRO, AWFILLRE = g MOV INTO SAVED RHCA 
Se HER Bg i ia 
4236 013006 004037 034460 JSR -RO,J#FILLRE = ;MOV O INTO SAVED RHDST 
4237 013012 002222 RHDST s SAVED REGISTER TO CHANGE 
4238 018014 000000 0 ;DATA 
He40 O130i8 004037 O3S4HO JSR_ RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 
He4l Ols0ee O0eee RHOF ;CHANGE RHOF REGISTER 
4243 013024 900003 3 ;3 BIT/BITS TO BE CHANGED 
Nev? 0130e6 900000 _ {NEW VALUE OF FMT22 I 
i) Ol 
O130 6 

Hes 013046 002000 HCI zs CHANGE HCI BIT 
“251 O13042 004037 O35440 JSR RO,@8CHREG += =; CHANGE BITS IN SAVED-REGISTER 

| Hebe C1304 O0zeH0 RHDS1 ;CHANGE RHDS1 REGISTER 
4254 013050 000001 1 j1 BIT/BITS TO BE CHANGED 
weSS 013052 090001 1 sNEW VALUE OF VV IS 1 
W256 01054 000100 W CHANGE WW BIT” 
4258 jNOM THAT SAVERE TABLE WITH SAVED REGISTERS HAVE 
4259 THE EXPECTED VALUE AFTER A READ-IN COMMAND 
4260 {COMPARISONS ARE MADE 
eee 
4263. 013056 004037 035546 JSR  -RO,J#COMREG = COMPARE SAVED REGISTERS WITH 
4ee4 as ;PRESENT VALUE 
4265 013062 O04S22 SAVERE ;G00D DATA SAVED IN *SAVERE? 
4265 013064 002266 WC ;TEST DATA STARTING FROM *RHLIC’ 
4267 013066 O00G2e ig. 318. REGISTERS TOBE COMPARED 
4268 013070 013074 o$ SRETURN TO S 
Webs O1s07e 013100 bs RETURN TO E& ON NO ERROR 
4271 013074 104020 S$: ERROR 20 _ $READ_IN COMMAND GAVE AN 
W272 013076 000207 RTS = PC , 
4273 'G00D DATA HAS WHAT SHOULD 
4274 ;BE IN REGISTER AFTER A 
4e75 ;READ-IN COMMAN ND 

- 42876 SRECEIVED DATA HAS W 

4277 SP bi ;THE REGISTER ACTUALLY CONTAINED 
427 ;THE FOLLOWING SHOULD 
4279 BE THE REGISTER CONTENTS 
4580 RHOST = 0 
4281 SRHOF “ShoOL HAVE FHT22 = 0, 

| 





ie 
tal 
- 
. 


aes 


"oe. 


Visa 
Lee EPTET ISS) 
Segeageageny 
- oe oe 





MAI INDEC a | 1-DERPU-8 
DERFUB.Pi1 T14 


rod 


4323 013142 


4325 013146 
43e6 01315Se 
4327 


4328 O1315¢ 
4330 013162 
4332 012166 


4334 012172. 


4336 013176 
4338 013202 


4340 013205 
4341 Olsele 


004737 
012700 
012730 
012730 
052730 
012730 
012730 
012730 
012730 
012730 
012730 
012730 


012730 
012730 


ee 
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001900 
0800i4 


OR4SS6 


034614 - 
o02210 


177777 
177777 


043019 
001400 


-poogan 


177777 
ocsace 
177777 
177777 
oocodo 


177777 
177776 


004514 
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s RERARASSAAAAAERASEASSRASSE SRA RAAF LAA SKRFLARLLLLA SHAS SLES SSE S 44444 
;*TEST 14 READ-IN-PRESET 


le ee ee ee 


THI | ST rode Le. Prot as THE PREVIOUS TEST EXCEPT 
THA DOES NOT TEST THE SETTING OF VV 


THIS TEST, Is HERE BECOUSE IF ACT-11 MONITOR IS PRESENT 
THEN THE PREVIOUS TEST WILL NOT BE PERFORMED 

TH ne Par eee gortia 

TS OF ALL REGIS ER ARE FILLED 

WITH ONES EXCEPT GO, CLR. IE, SAT. MCPE, UPE 

ATA FOR DRIVE UNDER’ Test IS Nabe = 4 


THEN A READ- IN-PRESET COMMAND = 20 IS GIVEN 
THEN ALL REGISTERS ARE TEST 
THE FOLLOWING SHOULD SE THE REGISTER CONTENTS 
RHCA = 0 RUDST = 0, stor SHOU LD HAVE 

FMT22 = = 0, HC RHDS1 SHOULD HAVE VV = 
ALL OTHER’ REGISTE g Seduce Cae UNCHANGED 


wz 
~ 
Al 
—~ 
“Fz 
pee 4n 


5 RERAAAALERALELARALLERAARALELALAALLELALALERALRLLEL ALAR FPRELELE LE 
PE . 


tST14: 





-, MOV #0, a(RO)+ 


Sco 
Ov —s@STACK, SP SRESET STACK 
MOV #14, a8TSTNM :SAVE TEST NUMBER 


JSR PC, saCLOISk 7 SETS R 2cRHCS1, R2-RHCS2 


| TUP UN 

ISR PC, JBCHECK : CHECK DVA,RDY, MOL, OPR, DRY 
MOV SRHWC,R0 sADDR. OF ADDR. OF RHWC IN 80 
MOV 8177777, 3(RO)+ ;LOAD 177777 INTO RHWC 


“MOV #177777, 9(RO)}+ ;LOAD 177777 INTC RHBA 


BIS #43010,a(R0)+  ;LOAD 43010 INTO RHCS2 
MOV $1400,3(R0)}+  :LOAD 1400 INTO RHCS! 


MOV #0, 3(RO)+ ;LOAD O INTO RHERL 
MOV 8177777, 9(RO)+ ;LOAD 177777 INTO RHDST 
MOV #0, 9(RO)+ ;LOAD O INTO RHER2 
MOV #177777,9(RO)+ ;LOAD 177777 INTO RHOF 
MOV —s-&177777,3(RO)+ ;LOAD 177777 INTO RHCA 
~;LOAD Q INTO RHER3 


MOV -1,3 CLEAR ALL BITS OF RHAS 
MOV ST batoee 3¢RO)4 :LOAD 17777& INTO RHMR 































ina pit 114 MACYLL 27( 732) 
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aaue 013216 OS3777 O04650 167010 Bis JBATTENT, JRHAS ts aw 4+ DRIVE ATA 
4 , 


iN O1s2e4 Ol3777 002374 166764 MOV JeREADIN, IRHCS1 ;GET READY FOR READIN “~ 
4348 READ IN WITH eo IN RHCS1 
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35 
4351 “NOW SAVE REGISTERS FOR COMPARISON AFTER READ-IN COMMAND 
w3e5 g1353¢ eae agile ik pte ONE Se peorsrer EFast REGISTER SAVED 
4354 2/3535 aeeede SANE RE + HEETING Tob oReS OF WHERE 
4355 : THE REGISTERS Bre * SAVED 

§ 013242 000022 $6. nt NUMBER OFF REGISTERS 


4959 013244 013777 OO4S16 166732 MOV DBRPYVEC,ARPVEC ;SET aaa yes TOS ADDRESS 

4360 519° TIME1’ IF P-CLOCK IS PRESENT 
4361 39R TO ‘Ware IF P-CLOCK IS NOT "PRESENT 
4362 ;* TIME’ W ONLY SAVE 

4363 ; CURRENT MOC INOER ADDRESS 

aire ;AND LOOK AHEAD REGISTERS 

4366 OlseSe O13746 002374 MOV DBREADINI,-(SP) ;GET rey TQ MOVE COMMAND 

4367 013256 OSe71& 000001 BIS #G0, (SP) :GET READY TO SET GO 

4368 WITHOUT INTERRUPT ENABLE. - 

4369 Olsebe 012677 166730 MOV (SP)+,9RHCS1 :G0_WITH 

aase ‘arty INTERRUPT DISABLED 


4373 
4374 O13266 104410 WAT ;WAIT FOR RDY BIT TO SET 
4375 Q13e70 O02216 RHCS! ;WAIT FOR RHCS1 REGISTER 
4376 Qi3e7e 09 RDY ;WAIT FOR ROY BIT IN RHCS! REGISTER 
4377 U13274 900001 - ; Far 10 MICRO Fes 
013276 C1 UST SET BET 


438] - NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 

4382 013200 004037 oO34460 SSR RO, JSF ILLRE sMOV 0 INTC SAVED RHC: 

4383 913304 002230 RHCA : SAVED REGISTER TO CHANGE 

4384 013306 900000 0 :DA 

4385 013310 004037 o244E0 JSR RO, JeF ILLRE :MOV O INTO SAVED RHDST 

4386 013314 902222 RHDST ; SPVED REGISTER TO CHANGE 

4387 013316 o095¢0 0 :DATA 

4385 013320 004037 Oo25440 ISR RO, JBCHREG ;CHANGE BITS IN SAVED REGISTER 

4330 013324 O0e226 RHOF :CHANGE RHOF REGISTER 

4392 013326 op0002 3 $3 BIT/BITS T0_BE CHANGED 

4393 613330 Sco000 0 : NEW vac UE 19 FMT2e IS 0 

4394 013332 910000 FMT22 ;CHANGE F T22 

4395 012334 909000 0 : NEW TELE OF EC Is 0 
396 013336 004000 ECI ; CHAN GE ECI BIT 

4397 013340 000000 6 ‘NEW VALUE OF HCI IS O 
#298 Ol]3342 002000 HCI ; CHANGE HCI BIT 
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DERP 


13344 
13350 


0 
0 
01332 
013254 
013386 


013360 


013374 


013376 
023406 


013402 





T14 
004937 
002240 
000991 
0COS9 
CO018 


004037 
bbesee 
000022 
013376 
013402 


104020 
000207 


035440 


O35S46 
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6$: 
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E08 





;CHANGE BITS IN SAVED REGISTER 


JSR RO, JBCHREG 


RHDS1 ;CHANGE RHDS1 REGISTER 

1 1 BIT/BITS TO BE CHANGED 
1 ;NEW VALUE OF VV IS 1 

WV :CHANGE VV BIT 


fur THAT SAVERE TABLE WITH SAVED REGISTERS HAVE 
THE EXPECTED VALUE AFTER A READ-IN COMMANL 
: COMPARISONS ARE MADE 


JSR RO, d8COMREG scones Ren; REGISTERS WITH 


SAVERE ve DATA SAVED IN *SAVERE’ 

WC DATA STARTING FROM *RAWC’ 
18. REGISTERS TO Es COMPARED 
53 iRety RN TO S$ ON ERROR 

&$ RETURN TO &$ ON NO ERROR 
ERROR 20 ERROR. COMMAND GAVE AN 

RTS PC 


E060 "bara HAS WHAT SHOULD 

BE IN REGISTER AFTER A 
;READ-IN COMM 

RECEIVED DATA HAS W 

THE REGISTER ACTUALLY TconTAINE 
: THE FOLLOWING SHOULD 

3BE THE peci ster as eee 


:RHOF SHOULD HAVE FMT22 = 0, 
‘HCI = 0, ECI = 

:RHDS1 SHOULD HAVE VV = 1 
‘ALL OTHER BITS SHOULD 

: BE UNCHANGED 












MACY11 27(732) 
RECALIBRATE COMMAND 


he-:1-5-idet-laelahaeleigi~s-b-4-tl-t-S-b-d-t-ib-d-tolet-bt-falalalahaehalablalahlaiaicelaieieelabselelallele 
RECALIBRATE COMMAND 


PLL POSRIALE BaaiereRs Ae ARE canoes At we ONES 
NO REGISTERS SHOULD CHANGE EXCEPT RHE = 
ie perce 


ine ett ai 17-SEP-76 13:23 PAGE % 
DERPUB. 


#177777, a9(RO)+ 
#177776, a(RO)+ 


#177777 ,a(RO)+ 


8177777, a(RO)+ 


8177777, a(RO)+ 


;NOW SET BITS IN RHAS FOR ALL DRIVES PRESENT 


















;RESET_STACK 
;SAVE TEST NUMBER 


;SET RI-RHCS1, R2-RHCS2 
:R3-RHDS 

GIVE RH Lt INITIALIZE 

:SETUP UNIT NU 

CHECK BVA, RDY, AOL, DPR, DRY, VV 
;ADDR. OF ADDR. OF RHWC IN RO 
sLOAD 177777 INTO RHWC 

;LOAD 177776 INTO RHBA 


;LOAD 010 INTO RHCS2 
;LOAD 1400 INTO RHCS1 


;LOAD O INTO RHERI 

;LOAD 177777 INTO RHDST 
;LOAD O INTO RHER2 

sLOAD 177777 INTO RHOF _ 
;LOAD 177777 INTO RHCA 
sLOAD O INTO RHER3 



































































::PUSH RO ON STACK 

; SAVE RHER1 10 REINSTATE LATER 
“SAVE RHCS2 TO BE REINSTATED 
:AFTER ALL ATA ITs HAVE BEEN SET 
:GET DRIVES PRESENT 

CLEAR RHCS2 AND CARRY 


sGET ‘ait INTO Se as a a 
ROVE e_iNTO ERROR F REGISTER 
gee RHCS2 TO NEXT UNIT 


;SRANCH IF 8 NOT DONE 
:REINSTATE RHCS2 







BIT 










MAINDEC-11-DERFU-2 
DERPUB.P11 


TiS 
4493 13542 012614 
W494 O13544 912600 
wuse 013546 905720 
13 
449 
W498 013550 012730 
4499 
4500 . 
4501 
4502 013554 013777 
4503 
G54 
4505 . 
4506 013562 OU4037 
4507 013565 902219 
#508 013570 O04se2 
4510 913572 oo0022 
a 
4513 013574 013777 
4514 
4515 
4516 
451? - 
4519 
4515 
4539 , 
4521 013602 013746 
W588 013606 052716 
4524 013612 012677 
4525 
4526 
HSE? 013616 011100 
013620 O11 

4550 
4531 013622 104410 
4532 013604 OO2240 
4533 013626 900200 
4534 013630 076377 
4535 013632 956701 
4536 

| 4537 
4538 
4539 013634 0137 
4540 013640 52716 
4541 013644 005737 
4542 013650 001413 
4543 013652 010037 
w544 013656 042737 
4545 013664 O4e716 
4546 013670 053716 
4547 013674 052716 
4548 013700 


002340 


034716 


004516 


002340 
000101 


166400 


092340 
004301 
004632 


004660 


166434 


1664Ce2 


004560 


89$: 


MOV (SP)+, JR4 

MOV (SP +, vRO 

TST 

MOV #177776, a(RO)+ 
MOV JSRECALI, IRHCS1 
- NOW SAVE REGISTERS FOR 
ISR 0, a8SAV 

SAVERE 

18. 

MOV DHRPYVEC , IRPVEC 


MOV 
BIS 


MOV 


MOV 
MOV 


WAT 
RHDS1 
DRY 
31999. 
24001. 


DBRECALI,-(SP) 
#GO'TIE, (SP) 
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MMAND 


(SP)+,dRHCS1 


dR1,RO 
aR3,R5 


sREINSTATE RHERL : 
iF? OVER PHAS aT 7 


seo Se INTO RHMR 


GET READY FOR RECALI 
;RECAL IRATE WITH & IN RHCS1 


COMPARISON AFTER RECAL IRATE 

;SAVE REGISTERS 

:RHWC_IS THE FIRST REGISTER SAVED 

5 START ING ADDRES OF WHERE 
REGISTERS ARE SAVED 

NUMBER . REGISTERS 

;SAVED = 18. 


soeT RPOW VECTOR ADDR ESS 
310 ro ott IF Tf PCL IS PRESENT 


;GET READY TO MOVE COMMAND 
:GET READY TO SET GO AND 
‘oan 


N RHCS1 FOR RECALIBRATE 
har INTERRUPT ENABLED 

: SAVE: RHCS1 BURTHG ABOVE OPERATION 
SAVE RHDS1 DURING ABOVE OPERATION 


;WAIT FOR DRY BIT TO SET 


; REGISTER 
;WAIT FOR ORY SIT IN RHDS1 REGISTER 


ALLOW 319990 MICRO SECONDS 
sDRY MUST SET BETWEEN 
O AND 560000 MICRO SECONDS 


7998 
;COMPARE CONTENTS OF RHCS1 1 Oe Os! ALREADY SAVED IN 


JBRECAL -SAVE CO 
aDvai COE RD Y, (3) 


(SP) 


aeTMPY 
OTE aeTMP4 


#IE, (SP) 
JeTMPY, (SP) 
#SC, (SP) 


“RO AND RE pol beat OH AFTER 


MMAND 

- INCLUDE DVA!GO! IE! RDY 
THERE MORE THAN ONE NIT 
BR ENC IF ONLY ONE UNIT 


;GET RHCS1 

;KEEP IE BIT 

;CLEAR IE IN GOOD DATA 
;GET IE AS IS 

;SET SC IN RHCS1 


F P-CLOCK IS NOT PRESENT 
Y SAVE 


ae Y 












MAINDEC-11-DER°U-5 
DERPUS.P11 T1S 


4549 013700 011637 
4580 013704 22600 
Wee> 01 4 
wees O1Se13 1003? 
4554 013714 010137 
#335 013720 104021 
4557 013722 012746 
4558 013726 911637 
4553 13732 2260 
4561 013734 001405 
4562 013736 010537 
4563 013742 010337 
4564 013746 104 
uses 


4584 014014 110700 


4Eae 014022 o04S2e 

4593 014024 002266 

4594 014026 00002e 
014030 


014022 014040 


22 OMe i 


4590 014016 004037 . 


C1124 


034460 


C344E0 


004659 


034460 


034460 


035546 


MACY11 27(732) 
RECALIBRATE 


OO4S46 


ges: 


1S: 
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COMMAND 


RESENT 
SAVERE :GO0D DATA SAVED IN ’SAVERE’ 
WC TEST DATA STARTING FROM *RHWC’ 
18. 318. REGISTERS TO BE COMPARED 
1$ ;RETURN 70 1$ ON ERR 
es ; RETURN TO 25 ON NO ERROR 
ERROR 64 SRE CH TREATE COMMAND CAUSED 
RTS PC ;AN ERROR 








MOV (SP), a#S$GDDAT  ;SAVE FOR PRINTOUT iy 
CMP (5P)4,R0 sun ABOVE OPERATION ONLY DVAIGO!IE!RDY va 
COMMAND SHOULD BE SET 


Q ges : BRANCH iF GOOD 
MOV 0,ad#S8DDAT T 
MOV R1,d#REGADR FAILING REGISTER wien 








ERROR 21 ; DURING ABOVE OPERATION 
OMMAND AND DVAIGOITE'RDY SHOULD BE SET 

MOV #MOL!DPR!VV!PIP, isp) jSBVE eat SET DURING OPERATION IN RHOS! 

MOV (SP) },a8SGDDAT ';SAVE FOR PR 

CMP (SP P)4 RS sDuRT NG REO N ERATION ONLY MOL!DPR! vv!PIP 






; BRANCH ‘e GO00D 






SEQ 30S 

MOV RS, J#SBDDAT 

MOV R3, J#REGADR ;EAILING REGISTER RHDS1 

ERROR 63 DURING ABOVE OPERATION ONLY 
;MOL!DPR!VV!PIP SHOULD BE SET 









*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 
JSR RO, J#F ILLRE sMOV_O INTO SAVED RHCC 
RHCC :SAVED REGISTER TO CHANGE 


0 :DATA 
JSR RO, J#F ILLRE :MOV_116377_INTO_SAVED RHOF 
ton spaven REGISTER TO CHANGE 


BIS DWATTENT,a¥SAVERE+24 SET APPROPIATE ATA BITS 
:FOR WORKING DRIVE IN 
s SAVED RHAS LOACTION 
JSR RO, J#F ILLRE MOV rouise INTO CAVED RHCS1 
RHCS1 :SAVED REGISTER TO CHANGE 


DATA 
JSR RO, J#F ILLRE :MO ¥ 110700 INTO SAVED RHDS1 
le j SAVED REGISTER TO CHANGE 





















;NOW COMPARE REGISTERS AFTER A RECALIBRATE COMMAND 














JSR RO, J#COMREG tRESENT Ate REGISTERS WITH 










; 6000 DATA GIVES WHAT SHOULD 
;BE THERE 


RECEIVED DATA GIVES WHAT WAS 
THERE AFTER COMMAND 





108 
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RECALIBRATE COMMAND 


2s: 


Nap | fee - MACYI1 27(732) 17-SEP-76 13:23 PAGE 100 
DERPUB .P T16 RECALIBRATE COMMAND 


OOo megs Og oo RE renee: 
ix THEN RREERCIBRATE oe cOnfiefd TS GIVEN 
3% NO REGISTERS SHOULD CHANGE EXCEPT RHCC=0 


F555 dstcioh £-4-4-5-lodsiaiallodeisioioiledelaieieleleieioeleisinilelelainilelaioioioeiainioiellaieieieleiiaiaa 
p0c004 tSTi6: SCOPE 


ple70g 1000 MOV STACKS be TACK 
127 0016 MOV a oat -SAVE TEST NUMBER 
0140S4 904737 o34556 JSR PC, J#CLDISK ;SET R1-RHCS1, R2-RHCS2 
?R3-RHDS1, RY-RHERI 
sg1Ve RH-11 INITIALIZE 
014060 004737 034636 JSR PC, J8CHECKT :CHECK DVA,RDY,MOL,DPR, DRY, VV 
N14084 012700 002210 #RHWC, RO ;ADDR. OF ADDR OF RHWC IN RO 


SEeStets 
ODIT UIE ITU 


fo 
w 


PERE 


014070 012730 900000 #0,a(RO)+ ;LOAD 0 INTO RHWC 
014074 012730 000000 #0, a(RO)+ ;LOAD 0 INTO RHBA 


014100 052730 000000 #0,a(RO)+ ;LOAD 0 INTO RHCS2 


014104 012730 000000 #0,a(RO)+ ;LOAD O INTO RHCS1 
014110 012730 000000 #0, a(RO)+ ;LOAD O INTO RHER1 
014114 012730 000000 #0,9(RO)+ ;LOAD O INTO RHOST 
014120 012730 090000 #0, 0(RO)+ ;LOAD 0 INTO RHER2 
014124 012730 pocon0 #0,9(RO)+ ;LOAD O IN"D RHOF 
014130 012730 o00000 #0, a(RO)+ ;LOAD O INTO RHCA 


014134 012730 000000 #0, 9(RO)+ ;LOAD 0 INTO RHER3 
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DERPUB .P T16 RECALIBRATE COMMAND 


012730 177777 MOV #-1,0(RO)+ ;CLEAR ALL BITS OF RHAS 
y - 
012730 000000 MOV #0, a(RO)+ ;LOAD O INTO RHMR 


013777 002340 166040 MOV @#RECALI,@RHCS1 ;GET READY FOR RECALI 
SRECALIBRATE WITH 6 IN RHCS1 


;NOW SAVE ei FOR COMPARISON AFTER RECALIBRATE 


Biutes otrbes | isk on RHE Reotie Plast REGISTER SAVED 
S OF WHERE 


014164 Si VERE STARTING ADDRE 
THE REGISTERS. ore a ved 


014166 ‘a SLUGGER OF OF F pai 


01417G 013777 004516 166006 @BRPYVEC ,ARPVEC ; 


OR ADDRESS 
P-CLOCK IS PRESENT 
IF P-CLOCK IS NOT PRESENT 


;* TIME’ WILL ONLY SAVE 
CUNT CYLINDER ADDRESS 


LOOK AHEAD REGISTERS 


014176 002340 MOV aeRECALI -(SP) ;GET READY TO MOVE COMMAND 
014202 052716 O0C10i BIS ,(SP)  ;GET_ READY TO SET GO AND 

‘ENABLE INTERRUPT 
Di4206 166904 MOV ‘ns suc 360 WITH 

IN RHCS1 FOR RECALIBRATE 

sitth H INTERRUPT ENABLED 
014212 MOV 3R1,RO “SAVE RHCS1 DURING ABOVE OPERATION . 
014214 MOV JR3,RS :SAVE RHDS! DURING ABOVE OPERATION 


014216 ; WAT ;WAIT FOR DRY BIT TO SET 
RHDS1 ;WAIT FOR RHDS1 REGISTER 
DRY :WAIT FOR DRY BIT IN RHDS1 REGISTER 
31999, sALL OW 319990 MICRO SECONDS 
e400l. :DRY MUST SET BETWEE 
79980 AND 560000 MICRO SECONDS 
; COMPARE CONTENTS OF RHCS1 AND RHOS] ALREADY SAVED IN 
-RO AND RS IMMEDIATELY AFTER GO 
002340 ov JBRECALT (SP) SAVE COMMAND 
004301 SOVA! GO! te! BD , (SP) -INCLUDE DVA!GO! IE!RDY 
061124 (SP) a#$G Boar” ; SAVE FOR 
(SP) P)4 RO ;DURING ABOVE OPERATION ONLY DVA!GO! IE!ROY 
AND COMMAND SHOULD BE SET 
88S ; BRANCH IF GOOD 
| RO, J#SBDDAT AD DATA 
MOV R1; J#REGADR FAILING REGISTER RHCS1 
014260 21’ sDURING ABOVE OPERATION ONLY 
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DERPUB.P11 T16 RECALIBRATE COMMAND 


QNMAND AND DVAIGO!TE!RDY SHOUL 


pt igbe piers paeegd 0 88s: V Ca SeBtbbs IP, er) ob LEN BaF SET DURING OPERATION IN RHOS1 


014272 022605 CMP SuRINs “tenis OPERATION ONLY MOL!DPR!VV!PIP 


014274 001405 BEQ 90S : BRANCH a 
pt ieee 10537 poe. MOV RS, d#SBDDAT :B00 pale 
14 4510 MOV R3, J#REGADR AILING REGISTER RHDS1 
ERROR 63° DURING ABOVE OPERATION ONLY 
;MOL! DPR! VV! PIP SHOULD BE SET 


014310 


;NOW CHANGE SAVED REGISTERS TO EXPECTED VALLES 
014310 O34460 nc RO, J#F ILLRE ;MOV 0 INTO SAVED RHCC 
014314 :SA wep REGISTER TO CHANGE 


014316 : DATA 
014320 oo4es0 o04s4S BIS § @#ATTENT,J¥SAVERE+24 iSET APPROPIATE ATA BITS 


WORKING D 
;SAVED RHAS LOACTION 


035440 JSR RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 
RHDS1 :CHANGE RHDS1 REGISTER 


1 ;1 BIT/BITS TO S73 CHANGED 
1 ;NEW VALUE OF ATA IS 1 
014340 1000 ATA CHANGE ATA BIT 


014342 035440 JSR RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 
014346 RHCS1 ;CHANGE RHCS1 REGISTER 


014350 1 ;1 BIT/BITS TO BE CHANGED 
i43Se 1 sNEW VALUE OF SC IS 1 


O14364 Sc CHANGE SC BIT 
SNOW COMPARE REGISTERS AFTER A RECALIGRATE COMMAND 
014356 035546 JSR RO, GACOMREG © JNPARE rate REGISTERS WITH 
oo4se2 SAVERE A SAVED IN *SAVERE” 
002266 iC ITEST DATA STARTING FROM RHWC’ 
anon. ; 118. REGISTERS TO BE COMPARED 
014374 IRETURN TO 1$ ON ERROR 
014372 O14400 :RETURN TO 2§ ON NO ERROR 
014374 104064 : «ERROR oY sRECALIBRATE COMMAND CAUSED 
014376 G00207 RTS so AN ERR 
:G00D DATA GIVES WHAT SHOULD BE 


RECEIVED DATA GIVES WHAT WAS 
014400 es: :THERE AFTER A RECALIBRATE 


| SSUEURASUEANESR NSO SERIE SERERORESREORUORAEDREAOURIRERRORRR END 
T 17 UNLOAD COMMAND 


IF STARTING ADDRESS 220 IS USED THIS TEST WILL NOT BE PERFORMED 











014400 
014402 
014406 


014414 


0 
0i44S0 
014450 


O144S4 


01 
014476 
O14S56 


014634 
014634 
014636 


014642 


DT Tt eats Oe 
DERPUS.P11 


000004 
012706 
012737 
004737 


104400 
000424 


000000 
004737 


004737 
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UNL COMMAND 


001000 
000017 


034556 


004634 


C0l2le 
ooo04e 


001190 
001170 
16SeS 
167677 
010100 
014500 


014564 


034556 


034614 


004514 


2K AK OE OC I i i cK ie ote oie oe oe 


SONA One ep nena eine aaa aaa age mien antt vc 


tST17 


8S: 


1S: 


es: 


64S: 


6S$: 








F THE PROGRAM WORKS UNDER ACT-11 MONITOR 
HEN THIS TEST IS NOT PERFORMED 


IF _NO_ACT-11 poe +m PRESENT ' 
THEN THIS TEST IS ep ghLy ON THe FIRST PASS 
ae EST IS NOT DONE 


ON SUBSEQUENT PASSE 

. ey REGISTERS ARE FILLED WITH ONES 
THEN AN UNLOAD COMMAND =e I 

NO REGISTERS SHOULD CHANGE at MOL _SHOULD=0 


THEN THE DR i + IS POWERED UP 
AND A PACK ACKNOWLEDGE COMMAND (ALREADY TESTED) 
SETS VV-IN RDS 



















#STACK, SP ;RESET STACK 
MOV #17, a8TSTNM :SAVE ‘TEST NUMBER 
JSR PC, J#CLDISK ;SET RI-RHCSI, R2-RHCS2 

Roe RHDS1, R4-RHERI 
Sa INITIALIZE 
a sioat NIT NUBER 

TST J#NOPUSH 4, THIS 220 START 
BEQ *BRANCH IF NO . 
JMP TST20  ;JUMP TO NEXT TEST 
TST ae4e sMONITOR (ACT-11) RETURN ADDRESS 
BNE 1$ : BRANCH If MONITOR PRESENT 
TST aeSPASS -IS THIS FIRST P 
BNE 1$ *BRANCH IF NOT FIRST PASS 
BR 2 “BRANCH TO CONTINUE TEST 
MP ; JUMP _TO NEXT TEST 






J TST20 
Hy! f SETTING OF VV IS FOR LOOP ON ERROR ONL 
WHERE ei TAGS EFFECTS AND POWER UP BRINGS VV DOWN 


GET 
BIe7E7?, (SP) i CLEAR EVERYTHING EXCEPT VV. AND MOL 
#VVIMOL;(SP)+  ;ARE VV AND MOL SET 
BEO 6$ BRANCH IF YES 
TYPE re . 3 TYPE ASCIZ STRING 







V 
aes 














BR bug T OVER THE ASCI 

3; .ASCIZ c15><12> G64 DRIVE HEADS LOADED THEN HIT “CONTINUE™/ 

TYPE +4 ;;TYPE ASCIZ STRING 

BR asclz (15><12>/1E ALREADY LOADED THEN HIT “CONTINUE"/ 

HALT ;WAIT ‘FOR CONTINUE : 
JSR ——- PC, BHCLDISK SET RI-RHCS1, R2-RHCS2 


jR3-RHOS1 i 

: GIVE ot INITIALIZE 
-SETUP UNIT NUBE 

: CHECK vA. RDY, MOL, DPR, ORY 


JSR PC, J#CHECK 
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DERPUB.P11 


"yey 
Biuess 
O14656 
o14s62 


014672 
014674 


014674 
014700 
014704 


014710 


014714 


014720 
014724 
014730 
014734 


014740 


Tl? 


bearie 


012677 


104410 


004737 


012700 
012730 


012730 


052730 


012730 


012730 


012730 


012730 


012730 


227 
iat 
165334 


034636 


002210 
177777 
177777 


C00010 


001400 
000000 
177777 
occoce 


177777 


MACY11 27(732) 
UNLOAD COMMAND 


6$: 
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;SET VV IN RHDS1 WITH PACK ACKNOWLEDGE 

Bis Roscabs RET REaby 19 Sere cpmn 
WITHOUT INTERRUPT ENABLE 

MOV (SP)+, IRHCS1 ; 


WITH 
169, tN RHCS1 FOR PACK ACKNOWLEDGE 
;WITH INTERRUPT DISABLED. 


WAT ;WAIT FOR VV BIT TO SET 
RHDS1 :WAIT bee ee REGISTER 
VV ;WAIT V BIT IN RHDS1 REGISTER 


FOR 
1. ;ALLOW 10 MICRO SECONDS 
1. ;VV MUST SET BETWEE 
; 00 AND 20 MICRO SECONDS 
JSR PC, J#CHECKT ;CHECK DVA,RDY,MOL,DPR, DRY, VV 


MOV #RHWC , RO ;ADDR. OF ADDR OFRHWC IN RO 
;LOAD ALL POSSIBLE REGISTERS WITH ONES 
MOV #177777,a(RO)+ ;LOAD 177777 INTO RHWC 


MOV #177777,a(RO)}+ ;LOAD 177777 INTO RHBA 


BIS ‘ #10,a(RO)+ LOAD 10 INTO RHCS2 


MOV #1400, a(RO)+ ;LOAD 1400 INTO RHCS1 


MOV #0,a(RO)+ ;LOAD O INTO RHER1 
MOV #177777,9(RO)+ ;LOAD 177777 INTO RHOST 
MOV #0,a(RO)+ ;LOAD O INTO RHER2 


MOV 








#177777,3(RO)+  ;LORD 177777 INTO RHOF 








——_— oe - —— 


4947 915054 CL2746 og2236 MOV SBUNLORD,-(SP) ;GET READY TO MOVE COMMAND 


MAINDEC-11-DERPU 8. MACYIL] 27(732) i7-SEP-76 13:23 PAGE 105 
DERPUB. PL] UNLOAD COMMAND 
48s 
#35 cr4744 012730 1797? MOY 8177777, 3(RO)+ sLOAD 177777 INTO RHCA 
be } | 
w8S5 
#3SE 
w8S> OL47SD Cie7sc o70000 MOV 90, a(ROi¢ sLOAD OC INTO RHER2 
wise 
ss 
$822 
#22: :NOW SET BITS IN PHOS FOR ALL ORIVES PRESENT 
“Sue 
$363 O167Ss 210046 \ 80,-(s TACK 
e355 Bisvds | SITSee MO 384,-"se Meee) t "13 Re REINSTATE | SB7ER 
435s Els7éa Eilosé may ake. -( 5? : 320Vk RHCSE TO BE REINSTA 
“33 ; ? g : AFTER “te ATA SITS HAVE “SEEN SET 
eS5> 51472 013700 OO4ESz mC JaTCTALAT, RC SET DRIVES PRESENT 
w35e Sieve 565013 aa ake CLEAR RHCS2 AND CARRY 
“80S 5is770 4612755 900010 4, a6. 35 : SSUNTER 
#3i5 Bisers 566055 235: *3 Ro -CET BIT ing CARRY 
“$:1 i477 103002 at: 35 :BRANCH IF NO UNIT ON THIS SIT 
412 Cis00d O12714 177777 MOV 8-1, 284 MOVE iNT ERROR heotstes 
“$813 915006 ooS212 308 INC 282 iTNCREMENT RHCS2 TO NEXT UNIT 
4915 51500— B05506 Ses RS 
43iE S150 S8137] SNE 33s :SRANCH IF 8 NOT DONE 
si? Si5012 012612 MOV (SP )+,aR2 >REINSTATE RHCS2 
432 915019 12615 MOV SP )¢" aR4 ;REINSTRTE RHER! 
“i$ O150le 51280 Moy = (SP) 4#, Ro :7POP STack INTD RO 
4829 5)5020 905727 TST (RO)+ AEF OVER PHAS IN R 
433] 
4322 
4S23 
4924 
1365 o:sde2 012730 177776 MOV 8177776,9(RO)+ LOAD 177776 INTO RHMR 
4937 , 
4828 QIS026 013777 D023 165162 MOV ZSUNLOAD, IRHCS1 ;GET READY FOR UNLOAD 
1363 [UNLOAD WITH 2 IN RHCS! 
4831 “NOW SAVE REGISTERS FOR COMPARISON AFTER UNLOAD 
4932 615024 004037 O34716 SSR RO, a¥SAVER 3A VE REGISTERS 
4$33 O1E050 SO2219 RHWC HWC IS THE FIRST REG ISTER SAVED 
4934 015042 904552 SAVERE Sra TING ADDRES OF WHERE ; 
4935 REGISTERS See SAVED 
H33— 015044 900021 . - 17. ore oF SREGISTERS 
| me SA VED = 
| 4933 CISO4E 013777 OO4S1E 165130 MOV DBREYVEC, DRPVEC ;SET RPOY VECTOR ADDRESS 
4659 0 °T TINE IF P-CLOCK IS PRESENT 
| 441 :R TO’ Fime2" IF P-CLOCK IS NOT PRESENT 
| S45 IME’ WILL ONLY SAV 
| 8545 :CURRENT CYLINDER ADDRESS 
| ¥gul :AND LOOK AHEAD: REGISTERS 
| 4845 
| SS56 
| 








MAINDEC = }1-DERPU=B. 


DERPUS. Pil 
4948 015060 
449 
4850 015084 
4951 
4352 
3953 = 
4gs4 915070 
4955 015072 
4956 
4557 
4958 015074 
89539 O1S07& 
4960 015190 
4961 015102 
4962 015104 
$953 
“Soe 
ssés ue 
4986 015106 
4967 915ile 
4968 O15116 
4963 O1Si2= 
4970 015124 
8871 015130 
4972 915136 
337 S1site 
4974 015146 
4875 O15152 
4976 91515e 
4977 -OISiSE 
4978 - 
4979 ~ 515160 
4980. OiSl&e 
4981 Q15166 
$982 015172 
4983 
4984 O15174 
4$e5 015200 
4985 015204 
4987 
4982 015206 
4989 015210 
$990 015214 
4893 01S220 
4992 . 
4933 015222 
a$34 
4995 
4935 -" 
4997 015222 
4998 015226 
4999 
£000 015230 
$001 CiSe2e 
S00e 015234 
£003 o1523 


OSe71 


104063 


004037 
O02240 


coo2 


00 

000000 
110209 
ccuc0) 


MACY] 7 (732) 


UNLORD COMMAND 


dodge: 
188126 


025440 


oo4ee0 
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o4$: 


933: 


955: 


815 #G0, (SP) :GET READY TO SET GO 
MK f Wd WITHOUT INTERRUPT ENABLE 
MOV (SP)+, JRHCS! 369 WITH 
IN RHCS1 FOR UNLOAD 
rh INTERRUPT DISASLED 
MOV JRL, RC :SAVE RHCS1 DURING ABOVE OPERATION 
MOV aR3,85 :SAVE RHDS! DURING ABOVE OPERATION 


WAT ;WAIT FOR ROY BIT TO SET 
RHCS1 sWATT FOR RHCS1 REGISTER 
RDY WAIT FOR ROY BIT IN RHCS: REGISTES 


1. ‘Ar LOW 10 MICRO SECONDS 
‘. ;ROY Altus! SET BETWEEN 
:00 AND 20 MICRO SECONDS 
sCOMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
RO ANG RS IMMEDIATELY AFTER GO 
MOV JSUNLOAL = (SP) | #SAVE COMMAND 
BIS BDvat co! OY Y, (SP “INCLUDE DVA!GO!RDY 
TST ARE THERE MORE THAN ONE UNIT 
BEQ 34 ta ?BRANCH IF ONLY ONE UNIT 
MOV RO. aa TMP4 :GET RHCS1 
BIC aft CIE, asTMPY :KEEP IE BIT , 
BIC =—-_’w TE, ¢ SP) CLEAR IE IN GOOD DATA xs, UR 
BIS saftey (SP) LGET IE AS IS ) a 
sis (SP) :SET SC IN RHCS1 . 
MOV (SP), D8$GDDAT  ;SAVE FOR PRINTOU 
CMe (5233. R0 ; DURING ABOVE OPERATION ONLY DYA!IGO!IRDY 
COMMAND SHOULD SE SET 
BEQ 933 : BRANCH IF Good 
MOV RO, JeS80DAT SATA 
MOV 1 3@REGADR FAILING REGISTER RHCS1 
ERRCT te 


:DURING ABOVE OPERATION 
AND DVA!IGO!RDY SOU LO 8€ S 


MOV ab 1P!DPRE Wy -< 5p! VE BITS SET DURING OPERATION IN RHDS1 


-SA 
MOV ( DDAT SAVE FOR PRINTOUT 
CMP (SP pis ae :DURING ABOVE OPERATICN ONLY PIPIDPREW 
:SHOULD BE SET 
BEG 95 ; BRANCH IF S000 
MOV RS, JeSBODAT "BAD DATA 
MOV R2' aHREGADR FAILING REGISTER RHDS1 
ERROR 63 :DURING ABOVE OPERATION ONLY 


SPIP!OPR!VVY SHOULD BE SET 


";NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 


JSR RO, J#CHREG ;CHANGE SITS Ih oe REGISTER 
RHDS] : CHANGE RHDS1 RE UISTER 

2 32 BIT/BITS TO BE CHANGED 

0 ;NEW VALUE OF ATRIMOLIDRY IS 0 
ATAIMOL! DRY ; CHANGE Hh Ni ORY SIT 
9 sNEW VALUE OF PIP IS 















4.2 
2 & 
3 
Oo 





5005 015242 
5057 o1554s 
5058 
5093 015250 
5510 o152s2 
Soil = O15254 
5012 015256 
Bi 515362 
B14 
S015 o1s264 
- $018 015270 
5017 
5018 o1se72 
— <8O1g 518274 
5020 015276 
5021 625300 
e522 
E523 015300 
5554 





















5 
5033 015320 
£034 015322 
O35 
5036 015324 
5037 01536 
5938 
5036 
5546 
E04] 

E545 015230 
E043 915330 
E044 015334 
ES4s 

S04E 015352 
5047 15352 

| 04g 16356 
E049 015360 
B50 015364 
5052 o1ss02 

| 5053 o15502 
E054 015506 
E055 
5056 o1S600 
£057 015600 
E052 015604 
E058 O1560¢ 


Lat st eta” 
DERFUS.P11 


Tl? 


104400 
S00405 


013746 


ooo44e 


104400 
000434 


005037 
000000 
004737 








MACY 11 sate 732) 
MMAND 


UNLOAD C CO 


035440 


00432 


o3s440 


004650 


035546 


015336 


094626 
015366 


O04S46 


01sS10 . 


041404 
034614 





3$: 


4$: 


9€$: 


978: 


985: 


17-SEP-76 
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PiP -  sCHANGE PIP SIT 


JSR RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 
RHCS1 :CHANGE RHCS1 REGISTER 

l . id BIT/BITS TO BE CHANGED 

1 ;NEW VALUE OF GO IS 1 

GO s CHAN GO BIT 

TST J8NUNIT BR irene MORE THAN 0 unit 
BNE ‘$ RANCH IF MORE THAN ONE UNIT 
JSR RO, J#CHREG omens BITS IN SAVED REGISTER 
RHCS1 ;CHANGE RHCS1 REGISTER 

1 Sruatie® TO BE CHANGED 

1) W VALUE OF SC IS 0 

s¢ RANGE SC BIT 


BIC JSATTENT, J#SAVERE+24 ;CLEAR APPROPIATE ATA BITS 
:FOR WORKING DRIVE IN SAVED RHAS 


;NOW COMPARE REGISTERS AFTER AN UNLOAD COMMAND 
JSR . RO,deCOMREG tBRESENT TALE REGISTERS WITH 


RESENT 
SAVERE :G00D DATA SAVED IN *SAVERE’ 
We 2" :TEST DATA STARTING FROM "RHWC’ 
i? . 317. REGISTERS TO cs COMPARED 
3$ RETURN TO 3$ ON ERROR 
4$ | RETURN TO 4§ ON NO ERROR 
ERROR 23 ;UNLOAD COMMAND GAVE 
RTS PC : :AN ERROR 


; 6000 DATA GIVES WHAT SHOULD 
;BE THERE 


; RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER UNLOAD COMMAND 


TYPE +4 Te ASCIZ STRING 
BR 6$ :GET OVER THE ASCIZ 
::.ASCIZ (15) «12> 08" DRIVE. 7 
HOY DaUNIT, -(SP) :GET UNIT UNDER TEST 
TYPE +4 $3 TYPE aSCIZ STRING 
BR 875 139610 THE AS ci 
pp eASCIZ (15> «12> /1F ANDRY" BUTTON LIT THEN HIT STANDBY. . AFTER HEAD LOAD 
TYPE +4 3s TYPE fsclt ua RING 
+ ASCIZ cas «ier STAND-BY NOT LIT THEN-ERROR AFTER UNLOAD COMMAND.”<15>< 
CLR asePRITEM s CLEAR PREVIOUS ERROR NUMBER 
T WAIT FOR CONT 
ISR PC, J#CHECK CHECK DVA,RDY, NOL, DPR, DRY 
































MAINDEC@11-DERPU-S_ MACY] 27(732) 17-SEP-76 13:23 PAGE 108 


DERPUB.Fil Tl? LOAD COMMAND 


;SET VV IN RHOS1 


5065 O15$12 O13746 902372 MOV JBPKACK,-(SP)  ;GET READY 10 HOVE COMMAND 
Bape S15616 OSe716 000001 SIs #G0, (SP} GET READY TO SET GO 
7 sMITHOUT INTERRUPT ENABLE 


5068 015622 012677 164370 MOV (SP)+, 22HCS1 G0 WITH 
3069 *.22 IN RHCS1 FOR PACK ACKNOWLEDGE 
5070 ;WITH INTERRUPT DISABLED 
S072 O15$26 011100 MOV JR1,RO ;SAVE RHCS1 DURING ABOVE OPERATION 
3073 015630 911305 MOV aR3,RS :SAVE RHDS1 DURING ABOVE OPERATION 
f 
5075 o1sé32 104410 WAT ;WAIT FOR VV BIT TO SET 
5076 O15634 092240 RHDS1 sWALT FOR RHOS REGISTER 
5077 915836 900100 VV WAIT FOR VV BIT IN RHDS1 REGISTER 
$078 015640 900001 1. *ALLOW 10 MICRO SECONDS 
co7s oiss42 ofooo: 1. :VV MUST SET BETWEEN 
5080 :00 AND 20 MICRO SECONDS 
5082 oTEST DY OFFSET AN® RETURN TO CENTER LIN COMMD 
ses :aTEST 20 OFFSET AND RETURN TO CENTER LINE COMMAND 
5085 :% THIS TESTS TWO COMMANDS (LJOFFSET (2)RETURN-TO-CENTER-LINE 
5086 :# ali POSSIBLE REGISTERS ARE FILLED WITH ONES (EXCEPT RHOF) 
5097 * % AN OFFSET IS GIVEN 
£099 * ALL REGISTERS ARE COMPARED ONLY ATA SHOULD SET 
5089 % ALL OTHER REGISTERS SHOULD REMAIN UNCHANGED 
5090 :# E TURN-TO-CENTER-LINE 
5091 :# ALL REGISTERS ARE COMPARED ONLY ATA SHOULD SET 
£092 % AND RHOF SHOULD CLEAR (EXCEPT HCI,ECI,FMT22) 
5093 % ALL OTHER REGISTERS SHOULD REMAIN UNCHANGED 
5094 1% THE ABOV : PROCESS IS REPEATED FOR OFFSET REGISTER 
eee ;* VALUE 1 TO 3 
£097 © SEL EREKE KES LARERE SE ELSK ELE AEE LSA KA KA SRSSLSSA SLA LSL SRSA RAE RSRELEE 
5098 o1S5644 oo00004 tST20: SCOPE 
5099 915646 012767 O1S706 163232 MOV #1$, SLPADR SET cobs LOOP ADDRESS 
$100 915654 012706 001000 MOV STACK, SP sRESET STACK oa VY 
101 015669 012737 000020 004514 MOV #20, SeteTNn toate "Pet NUMBER sll 
5193 O1S666 004737 O34SS6 JSR PC, JCLDISK ;SET R1-RHCSL ec RHCSe 
5104 :R3-RHDS! RHER1 
E105 IVE a INTIAL IZE 
5106 sey NUBER 
£107 15672 112737 00001 oD4se0 MOVE #1, Q80FSTVL 1 OFFSET VALUE TO 1 
2198 015700 112737 000034 c04521 MOVE #34, aR0FSTVL41 ; ig HCI,ECI,FMTe 
4 
5110 
Sil 015706 1S: 
5113 015706 004737 O345S6 JSR PC, #CLDISK :SET RI-RHCS1, RE-RHCSE 
E114 *R3-RHOS!, RY-RHERL 
E115 :GIVE RH- fy INITIALIZE 


a ee ee 


WIUNUTUTUTUNUTUT 


-+ B+ 0 —< b= 9 -< & = 9 ~~ p< 9 - p+ p- 


NRA ZORA Swe NE eewe coe ao" : 


Bee WONUTe COFO C9 ao OPO Wu ED 


Gor tne toro 


COUNUT UNTO UT UT UT OT UT OT OT OT UT OT OT OTOT OUTOTOTT nUUn U U TUU U U UT UTU UUUT n Unareni ns) 
Oommuwd 


0 b+ 0-= 0 —= &-= B+ 6 + O-+ b= b= 8 = bs + + 2 0 2 = 0° 0-2 2 = 0-2 2 bo 90 bs 9 + 2 & 2 0 f+ 2 2 Be 9 e Pe 0 pop 


“NNO 
-Ow0d 


MA il 
Pil T20 


1S712 
015716 
015722 


015726 


015732 
015736 


015742 
015746 
015752 


015756 
015762 
015765 


s0le 


ee 
£024 
O26 


0 
01 
0 
0 
0 
4) 
0 
0 
0 
4) 
0 
1) 
0 
Q 
0 
0 


ee ee ee ee eee eee b+ 0 = > + p= oe 
o a 





004737 
012700 
012730 


012730 


9S2730 
012730 


012730 


012730 


012730 


013730 


012730 
0i2730 


010046 
O11446 
011246 
013700 


005012 
012705 
006090 


012730 
013777 
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OFFSET AND RETURN TO CENTER LINE COMMAND 


034636 
002210 
177777 


000010 
001400 


900009 
177777 
00008 


004520 
177777 
ooc000 


204652 
Co0010 


17°777 


177776 


002366 164.44 





- SETUP UNIT NUBER 
“JSR PC,QBCHECKT. . CHECK DVA,RDY,MOL,DPR,DRY, VV 


MOV #RHWC , RO ;ADDR. OF ADDR OF RHWC IN PO 


MOV #177777,9(RO)+ ;LOAD 177777 INTO RHWC 


MOV #177777, 9(RO}+ ;LOAD 177777 INTO RHEA 


BIS #10,a(RO)+ ;LOAD 10 INTO RHCS2 


MOV #1400,0(RO)+  ;LOAD 1400 INTO RHCS1 
MOV #0, 3(RO)+ LOAD O INTO RHERI 
MOV 8177777, a(RO}+ ;LOAD !77777 INTO RHDST 


MOV #0,a(RO)+ ;LOAD O INTO RHERE 


;THE OFFSET REGISTER WILL BE INCREMENTED FROM QO TO 377 
Mov aBOFSTVL,a(RO)+ ;SET OFFSET REGISTER 


MOV #177777, a(RO)+ ;LOAD 177777 INTO RHCA 
MOV #0,a‘RO)+ ;LOAD O INTO RHER3 
;NOW SET BITS IN RHAS FOR ALL DRIVES PRESENT 


MOV RO, -(SP) ;:PUSH RO ON STACK 
MOV aR4, -(SP) :SAVE RHERI TO REINSTATE LAT 
MOV are, -(SP) ;SAVE RHCS2 To BE REINSTATED 
‘AFTER ALL ATA BITS HAVE BEEN SOT 
MOV DSTOTALAT,RO GET nerves PRESEN NT 
CLR ake 5 CLEAR RHCS2 ANS TARRY 
MOV #8. RS C3UNTER 
ROR RO POET BIT INTO CAR 
BCC 83 "BRANCH IF NO ONT “aN THIS BIT 
MOV 8-1, aR4° :MOVE INTO ERROR REGISTER 
' :TO SET ATA 
INC are | : INCREMENT RHCS2 TO NEXT UNIT 
DEC —saR'S s COUNT 
BNE - 82% ‘BRANCH IF 8 NOT DONE 
MOV (SP)+, aR2 =REINSTATE RHCS2 
MOV (SP)+'aR4 ; REINS TATE RHERI 
MOV (5P)+, RG P STACK TiiTO RO 
TST (RO) ‘ie OVER PHAS IN RO 


MOV #1°7776,a(RO}+ ;LOAD 177776 INTO RHMR 
MOV aJROFSETC,QRHCS1 ;GET READY FOR OFSETC 








nal ~ | ital 
DERP 


UwIUTUTUT 
b-2 0-0-2 pe hee 


PR Li 8 Bw oUt LE color Owed owt Boone sf 


ry ¢] 


OUWNUITUTUTUT UU TU UU UT UU nae 
“N 


-- bb = b-- b+ + 2 b= -—- b+ b= 6 = b= 6 & -< 0 © & -2 9 9-2 he 


RRR 
RREBRE SBE 
RB ch 


BN 


TOPO FO FUFOFOrUrorururu rune 
= > +b bs b= bb oC) 
WDNMUW CWMe-OwWw 
COW KCOMMOMOOOrorw 
Ba ZSSESLHFHSLSL 


fo 
——- CD 


orm of 


0 
0 
0 
0 
0 
0 
0 
0 
0 
Q 
0 
0 
0 
0 
0 
0 
0 
a) 


—e ee be pe he be fs he he bo ee pe 





T20 


o0c022 


013777 


013746 
052716 


012677 


001750 
000454 


013746 


022600 


104021 


012746 
011637 
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gipase ppygyz™ os47ie 
018060 cO4See2 


OO4S1S 


002366 
000101 


164110 


002365 
094301 
004632 
004660 
177677 
000100 
004650 
100000 


001124 


001126 
004510 


030500 


O0ile4 . 
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09 






Nou sg arte FOR COMPARISON AFTER OFFSET 
ae is. The SPYRST REGISTER SAVED 
SAVERE 


18. Ree Peas 


MOV JSRPYVEC , ARPVEC se, wot VECTOR ADDRESS 
310 ° ist ’ IF P-CLOCK IS PRESENT 
39R TO *TIME2’ IF P=CLOCK IS NOT PRESENT 
;* TIME’ WILL ONLY SAVE 
CURRENT VYLINDER ADDRESS 
SAND LOOK AHEAD REGISTERS 






MOV a40FSETC -(SP) ;GET READY 19 MOVE COMMAND 
BIS E, (SP) :GET READY TO SET GO AND a. 
sENABLE INT ERR UPT 
MOV (SP)+, IRHCS1 360, WITH 
-14 IN RHCS1 FOR OFSET 


:WITH INTERRUPT ENABLED 
MOV 3R1,RO :SAVE RHCS1 DURING ABOVE OPERATION 
MOV 3R3,RS : SAVE RHOS! DURING ABOVE OPERATION oh 
WAT :WAIT FOR DRY BIT TO SET 
RHDS1 :WAIT FOR PHOS! REGISTER 
DRY :WAIT FOR ORY BIT IN RHOS1 REGISTER ; 
1000. TALLOW 10000 MICRO SECONDS y) 
300. ;DRY Myst SET BETWEEN 
:7009 AND 13000 MICRO SECONDS Ath 
sCOMPARE CONTENTS OF R4CS1 AND RHDS1 ALREADY SAVED IN ‘i 
RO AND RS. INMEDIATELY RF TE ER &9 
hov SET COMMAND 
BIS aDvat Go! tetRD a Jie INCLUDE DVA!GO! IE!RDY ) ) 
TST aan >ARE THERE MORE THAN ONE UNIT 
BEQ ag :BRANCH IF ONLY. ONE UNIT 
MOV RO, aT : 3GET RHCS! 
BIC RCiE ETM “KEEP IE 2 T 
BIC #IE, (SP) :CLEAR IE IN GOOD DATA 
BIS SAT HpS (SP) :GE AS 
BIS #SC, (SP) :SET SC IN RHCS1 
MOV (SP), 98SGDDAT  ;SAVE FOR PRINTOUT > 
CMP (5P)+,R0 *DURING ABOVE OPERATION ONLY DVA!IGO!IE!RDY 
?AND COMMAND SHOULD BE SET 
BEQ 86S ;BRA NCH IF GOOD 
MOV RO, J#SBODAT AD DATA 
MOY 1’ a#REGADR "FAILING REGISTER RHCS1 
ERROR a ; DURING ABOVE OPERATION 


N ONLY 
:COMMAND AND DVA'GO!TE!RDY SHOULD BE SET 
MOV #PIP!MOL!DPR!VV,-(SP) ;SAVE BITS SET DURING OPERATION IN RHDS! 
MOV (SP) ), dWSGDDAT :SAVE FOR PRINTOUT 








MAINDEC-11-DERPU-8 
DE Pll Ted 


-~ 


016222 


016326 
016332 


016340 
016344 


022605 


001405 
a1033° 


104063 


000 
icosces 


053737 


004037 


. 004522 
002 


104024 
000207 


013777 


004737 
013777 


004037 
002210 


MACYL1 27(732) 
OFFSET AND RETURN TO CENTER LINE COMMAND 


Saves 


035440 


035440 


\aM 


OO4ESO 


035546 


004650 


034636 
062370 


034716 


OO4S46 


es: 


163706 38: 


163656 . 


17-SEP-76 


13:23 PAGE 111 
CMP (SP)+,RS SHSatS BOVE. OPERATION ONLY PIP!MOL!DPR! vy 
BEQ ggs meal -BRANCH IF GOOD » 
MOV 3’ SERESAOR zBe0 DATA REGISTER RHDS1 
ERROR 63 ‘DURING ABOVE OPERATION ONLY 


:PIP!MOL!DPRIVV SHOULD BE SET 


;NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 

RHCS1 CHANGE RHCS1 REGISTER 

1 1 BIT/BITS TO BE CHANGED 

1 ‘NEW VALUE OF SC IS 1 

sc CHANGE SC BIT 

JSR RO, J#CHRES ;CHANGE BITS IN SAVED REGISTER 

RHDS1 CHANGE RHDS1 REGISTER 

l ;i BIT/BITS TO BE CHANGED 

1 NEW VALUE OF ATA IS 1 

ATs CHANGE ATA BIT 

BIS JBATTENT, J#SAVERE+24 ser CORR TNE on ATA BITS 
WORKING DRIVE IN 


‘SAVED RHAS LOACTION 
;NOW COMPARE REGISTERS AFTER AN OFSET COMMAND 
JSR RO, J#COMREG ee te REGISTERS WITH 


; PRESENT 
SAVERE : GOOD DATA SAVED IN ’SAVERE’ 
We ; TEST DATA STARTING FROM *RHWC’ 
18. 318. REGISTERS TO BE COMPARED 
es RETURN TQ 2$ ON ERROR 
33 RETURN TO 3% ON NO ERROR 
ERROR e4 ; OFFSET eo CAUSED AN ERROR 
RTS PC ;GO0D DATA IS WHAT SHOULD BE THERE 


sRECEIVED pore SYED ee! WAS THERE 
MOV QWATTENT,@RHAS ;CLEAR WORKING DRIVE ATTENTION 
;NOW A RETURN TO CENTER LINE COMMAND WILL BE GIVEN 
JSR PC, J#CHECKT ;CHECK DVA,RDY,MOL,DPR,DRY, VV 
MOV QSRETCL,ORHCS1 ;GET READY FOR RETCL 
:RETURN TO saNTER LINE WITH 16 IN RHCS! 
sNOW REGISTERS ARE SAVED FOR COMPARISON AFTER COMMAND 
RO, d#SAVER th E REG 


SSR 
RHIC RHWC IS THE FIRST REGISTER SAVED 
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016346 O04See SAVERE ;STARTING ADDRES OF WHERE 


os350 one " dpe ete 


016352 613777 OO4S1S 163624 MOV Snrnee. IAS ET RPOY VECTOR ADDRESS 
i 8 10th z P-CLOCK is PRESENT 
108 To, "TK 








, ay -CLOCK IS NOT PRESENT 


ME’ Y SAVE 
; CURRENT MEYLINDER ADDRESS 
AND LOOK AHEAD REGISTERS 









016360 O13746 002370 ; MOV @#RETCL,-(SP)  ;GET READY TO MOVE COMMAND 

016364 OSe716 000101 BIS aGO!TE, (SP) ;GET READY TO SET GO AND 
;ENABLE INTERRUPT 

016370 012677 163622 MOV (SP)+, JRHCS1 ;G0 WITH 





-16 IN RHCS1 FOR RETURN TO CENTER LINE 
;WITH INTERRUPT ENABLED 

























016374 911100 MOV dR1,RO :SAVE RHCS1 DURING ABOVE OPERATION 
016376 011305 MOV JR3,RS SAVE RHDS1 DURING ABOVE OPERATION ’ 
O16400 104410 WAT “;WAIT FOR ORY BIT TO SET mt Ml 
016402 002240 RHDS1 WAIT FOR RHOS| REGISTER 
O16404 OO0200 . DRY arya FOR DRY BIT IN RHDS1 REGISTER 
O1g406 001750 1000. . ALLOW 10000 MICRO SECONDS 
018410 001750 1000. s DRY MUST SET BE TWEEN 
"O00 AND 20000 MICRO SECONDS 
;COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
-20 AND RS IMMEDIATELY RF TER GO 
Oig412 013745 002370 MoV @¥RETCL (=P SAVE COMMAND 
Oig41g 052716 O04301 BIS #DVA'GO! TETRDY, (oP) INCLUDE | vA! G02 IEtRDY 
016422 005737 o04b32 TST OSNUNIT “ARE THERE MORE T N ONE UN UNIT 
Ois4e6 001413 BEQ ais. ; BRANCH IF ONLY ONE UNIT 
016430 010037 oo4Eso MOV aaTMP HCS1 
016434 042737 177677 CO4GEO BIC ete SE TNPY :KEEP IE BIT 
O16442 O42716 000100 BIC #IE, (SP) *CLEAR IE IN GOOD DATA 
Cls446 OS3716 OO4660 BIS deTMPY, (SP) :GET IE AS IS 
Dibuse 052716 100000 sa BIS #SC, (SP) :SET SC IN RHCS1 
C1456 011637 001124 MOV (SP), 28SGDDAT  ;SAVE FOR PRINTOUT 
Olg462 022600 CMP (SP)+,RO ; DURING ABOVE OPERATION ONLY DVA!GO!IE!RDY 
COMM BND SHOULD BE SET 
O1E464 OO14OS BEQ 89S ? BRANCH D 
O16466 010037 001126 MOV RO, J8SBODAT :B Bran 
0:6472 010137 OO4S10 MOV R1; J#REGADR FAILING REGISTER. RHCS! 
016476 - 104021: ERROR 21 :DURTN. A's OPERATION ONLY 
is SCUNMAND AND DVAIGO!TE!RDY SHOULD BE SET 
O16500 012746 030500 89$: MOV #PIP'MOL!DPR!VV,-(SP) SAVE weit SET DURING OPERATION IN RHDSi 
016504 011637 001124 MOV (SP) aaSGDDAT *;SAVE =0R PRINTOUT 
O16S10 de2260s5 CMP (SP)4,R5 sDUR iG ABOVE OPERATION ONLY PIP!MOL!DPR! VV 
O16S12 o01405 BEQ 91$ ?PARNCH IF 350 
016514 010537 001126 MOV RS, J#SBDDAT "BAD DHT? 
916520 010337 O04510 R3, J8REGADR FAILING REGISTER RHDS1 





al to 
DERPUB. TeO 


Pil 
py us 
S342 016S26 


5344 
5345 
5345 016526 
5347 016532 
5348 
5349 016534 
5350 016536 
E351 016540 
5352 
5353 o16542 
5354 O16545 
5355 
5356 O16550 
5357 916552 
5358 016554 
5359 
5360 O16556 
5361 
5362 
5363 O16564 
5264 O1ss70 
5365 016572 
5366 
5367 
5368 
5369 018574 
5371 016600 
72 Oi 
5373 016604 
5374 016606 
5375 016610 
5376 Olb6le 
5377 O16614 
5378 
5379 
5380 
5381 
5382 
5383 Olb616 
5384 
5285 Oleb16 
5386 
5387 
5398 
5389 016622 
5390 O16626 
5391 O16634 
E392 016636 
5293 C1644 
5394 


104063 


004027 
002215 


000207 


004737 


105237 


105737 
001001 
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ERROR 63 ;DURING ABOVE OPERATION ONLY 
. ‘PIP'MOL!DPRIVV SHOULD BE SET 
31$: 
:NOW CHANGE SAVED REGISTER TO EXPECTED VALUE 
035440 JSR RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 
RHCS1 ‘CHANGE RHCS1 REGISTER 
1 ;1 BIT/BITS TO BE CHANGED : 
1 * NEW vaLUE OF SC IS 1 
SC ‘CHANGE SC 
035440 JSR RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 
RHDS1 :CHANGE RHDS1 REGISTER 
1 31 BIT/BITS TO abe CHANGED 
1 "NEW VALUE OF 1 
ATA . :CHANGE ATA Bn 
904650 o04S46 BIS QWATTENT, DUSAVERE+24 SET APPROPIATE ATA BITS 
eed ana DRIVE IN 3, 
O34460 JSR RO, J#F ILLRE Hoy prricrnet! ECI'FNT22 INTO SAVED RHOF ~: S 
F . SAVED REGISTER TO CHANGE * ™ 
BITIS!HCI!ECI!FMT22 : DATA 
;NOW COMPARE REGISTERS AFTER RETURN-TO-CENTER-LINE 
035546 ISR RO, J#COMREG ; CONPERE SAVED REGISTERS WITH 
SAVERE :GO0D DATA SAVED IN *SAVERE’ 
ce :TEST DATA STARTING FROM ’RHWC’ 
18 18. REGISTERS TO BE COMPARED 
4g ?R TO 4$ ON E 
S$ ‘RETURN TO S$ ON NO ERROR 
4S: ERROR 25 SRETURN TQ CENTER-LINE 
RTS PC :COMMAND CAUSED AN ERROR 
GOOD DATA HAS KHAT SHOULD 
RECEIVED DATA HAS WHAT WAS 
?THERE AFTER COMMAND 
S$: 
O24SS6 - JSR PC, J¥CLDISK ;SET RI-RHCS1, fecntcse 
;RS-RHOS1 RHE 
sa INITIALIZE 
iS) bp UNIT NUBE 
004520 INCB @aOFSTVL -GET NEXT OFFSET VALUE 
000100 oco4se0 BITB #100, as0FSTVL ; SEE IF UNUSED BIT & IS ON 
BEQ ? NO SO DO SOM ME MORE 
000100 oo4se0 ADD #100,d80FSTVL  :YES"SO BY- T 
004520 73: TSTB © QKOFSTVL AF ABeRO ALL RRSNBINATIONS ARE 
BNE 6S :BRANCH IF 377 NOT DONE 


aa 


MAINDEC-11-DERPU-8 MACY11 27(732) 
DERPUB.P11 


i ee ne ee ee 


Es 0166S2 o0040e 
ei28 016654 000137 9015706 


6$: 


BR 
JMP 


KO9 


17-SEP-76 13:23 PAGE 114 
Ted OFFSET AND RETURN TO CENTER LINE COMMAND 


TST21  ;BRANCH TO NEXT TEST 


dels 


oe 


; JUMP SECAUSE 377 NOT DONE 


ot ee ae me ee ee 
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DERPUB.P11 Tei OFFSET COMMAND 


5 RR RRRA KEE RARER EEE E REESE RHEE ERIE ERE EEE EERE EERE EEE 
;*TEST 21 OFFSET COMMAND 


3% THIS TEST WILL ONLY GIVE REPEATED OFFSETS 


© LERKLAEKA LEAH LALLA RAR HAA RK AAA ALA LARA ALEE KARA EA HHA AKA LF RKEAG LLLFE 
000004 tsT21: SCOPE 

012737 000764 OO4eSS ee MOV # S00.,a8TMP1  ;COUNTER 

912706 001000 ; MOV #STACK, SP ;RESET STACK 

012737 o00021 004514 MOV #21, J8TSTNM 4SAVE TEST NUMBER 


004737 O34SS6 JSR PC,J#CLDISK’- SET RI-RHCS1, R2-RHCS2 
.  $R3-RHDS1, R4Y-RHERI 

Give Re INITIALIZE 

004737 034636 JSR PC, J#CHECKT :CHECK DVA,RDY, MOL, DPR, DRY, VV 


01671e 004037 O34S4e JSR RO, d#OF SET ; OFSET 
016716 000260 260 260 IN OFSET REGISTER 
;OFSET -1200 MICRO INCHES 


016720 013746 002365 MOV DROFSETC,-(SP) ;GET READY 19 MOVE COMMAND 
018724 052716 OO0101 BIS #GO'TE, (SP) :GET READY TO SET GO AND 
“ENABLE INTERRUPT 
016730 012677 163262 (SP)+, IRHCS1 $60, WITH 
IN RHCS1 FOR OFSET 
iit INTERRUPT ENABLED 


016734 104410 WAT ;WAIT FOR DRY BIT TO SET 
sWAIT ro pa REGISTER 

FOR DRY BIT IN RHDS1 REGISTER 

3500.16 nrce0 SECONDS 


TWE 
D 7000. NTCRO SECONDS 
31S ERR SET? 


o4occe 163264 8 east NO 
eb REPEATED OFFSETS CAUSED AN ERROR 


016762 004737 O34SS6 PC, J#CLDISK ‘cual Re-RHCS2 
GIVE ARR INITIALIZE 
SETUP UNIT NUBER 


O16766 013746 002340 d¥RECALT -(SP) ;GET READY TO MOVE COMMAND 
016772 052716 000101 #GO!TIE, (SP) :GET READY TO SET GO AND 


; ENABLE INTERRUPT 
012677 163214 (SP)+,3RHCS1  ;GO WITH 

*-6 IN RHCS1 FOR RECALIBRATE 
WITH INTERRUPT ENABLED 


104410 WAT ;WAIT FOR ORY BIT TO 
002240 *WAIT FOR RHOS1 REGIS 
000200 DR ;WAIT FOR DRY BIT IN RHOSI REGISTER 








Yams 1-DERPU-B MACY! 
DERPUB.Pil Tel 


457 


17010 
170le 


017014 
017020 
017022 


OFF SE 
pepee 
06S 
005337 004656 


001401 
000722 


MO9 
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2s: 


58000. 


DEC 
BEQ 


BR 


‘QeTMPL 


TST2e 
1$ 





DRY muSY Set a SECONDS 


00 AND SOO000 MICRO SECONDS 
COUNT DOWN 


;BRANCH IF DONE 


;GO0 BACK AND DO IT AGIEN 
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S456 R 5 RKRKARAA AA AAK ARAL AA AA RKLL ARE LLL AK LRA LALA ARAAAAA RHEL FELLER AEKALEFE 
S467 TEST 22 WRITE/READ HEADER AND DATA 
2p8 3% WRITE HEADER AND DATA CYLINDER 0, FORMAT 16 BITS PER WORD 
aust - TRACK 0, SECTOR 0, KEYS=0, NUMBER OF WORDS 256 WORDS 
S47 + THEN READ HEADER AND DATA FOR ABOVE. 
5u73 x WRITE FROM BUFFER AND READ INTO BUFFER ARE FILLED WITH 
ats :* n 9000 : 0,0 D 256° OF 0 
475 :% WAIT Ba RNO IS THEN LOADED INTO THE REGISTERS EXCEPT 
5476 x THE GO BIT, AND ALL THE REGISTERS ARE SA VED 
Pate ;3 THEN GO IS’GIVEN FOR WRITE HEADER AND DATA 
5479 x THEN ALL REGISTERS ARE COMPARED TO CHECK FOR IMPROPER CHANGED 
#80 :# THEN WRITE FROM BUFFER IS CHECKED TO SEE THAT NOTHING CHANGED 
S482 :% | 
5483 x NOW FOR THE READ COMMAND READ INTO BUFFER IS FILLED 
c4gy x WITH ALL ONES, COMMA 1S LOADED INTO REGISTERS EXCEPT 
syes x GO BIT AND ALL RE TSTERS A 
Suge i GO IS GIVEN FOR THE READ CORMAND 
«54868 x ALL REGISTERS ARE CHECKED FOR IMPROPER CHANGE 
S89 x THEN THE READ DATA IS COMPAREL. 
S431 © KXLLELEK LHS RAKE HSL K ERE ELEE SHAKE KEES KE HERE LEEK KAKA KEK KH SSE SLES 
S492 917024 opo004 tst22: SCOPE 
S493 017026 O1270€ 01000 MOV #STACK, SP ;RESET_STACK 
e434 017032 012737 JO0022 004514 MOV #22, a8 TSTNM :SAVE TEST NUMBER 
-§496 017040 004737 O34S5S6 ISR PC, J#CLDISK ;SET RI-RHCSI., R2-RHCS2 
5497 :R3- RHDS1 R4-RHER! 
5498 -  $GIVE RH-11 INITIALIZE 
5433 ‘UP UNIT NUBER 
501 FILL WRITE FROM BUFFER WITH HEADER 
E503 017044 004037 oO34402 . JSR RO, J#F HEAD ;SAVE HEADER DATA IN WRFROM 
5504 017050 o02400 WRFROM ‘LOCATION WHERE SAVE 
5505 017052 oog004 4 NUMBER OF WORDS SAVED 
5506 017054 9610000 10000 “FIRST DATA WORD 
5507 017056 o00000 0 ‘SECOND DATA WORD 
5508 017060 oo90000 0 :THIRD DATA WORD 
2208 017062 oo00000 0 *FOURTH DATA WORD 
csi ;FILL WRITE FROM BUFFER WITH DATA 
SSi2 017064 oO04037 O34426 sR RO, JHCLAREA :CLEAR 256. altORDS, FROM WRFROM+10 
£513 017070 o0e410 WRFROM+10 “STARTING FROM WRFEROM+10 
£514 017072 oo0400 256. 256. WORDS 
3218 017074 00009 0 *FILL WITH 0 
5517 
ccis sNOW READ INTO BUFFER WIL oe FILLED. WITH SAME DATA 
£519 AS WRITE FROM BUFFER SO T FTER A WRITE COMPARISONS 
£529 SCAN BE MADE TO hake SUR ar AURGTE DID NOT 
e521 :CHANGE WRITE FROM BUFF 


ae ee ee ee 


NAINGESS 1 1-DERPU-§ 
DERPLUS.P re2 

5522 

SSs3 O17076 CO4O3? 
Boe 517152 sastt 

S35 637304 8009 

225 Riothe 815530 
SS2> 617115. SO000C 
225, Bitte BOD O850 
S529 S201.8 50500 
Seip 525332 SPICE, 
S532 817154 S00400 
Ess 17126 J00000 
E=x2 

e257 

523° 

S538 91713C o04037 
$599 Sirig4 OOOO0) 
pe 8 -~e* Pe -] -——-— 
SSu; 517137 5568 
Seus B17]140 1773? 
S45 o1rise 02400 
S545 

S545 

SSu? oiri44 900000 
Gag Bi7ive 815000 
3343 

S551 O17180 902356 
e553 

5553 

c5c4 

sss 

S556 o17152 904037 
S557 Hi7i56 O02210 
555s Oi7ieo o04se2 
59 

S560 17162 o00021 
3561 

BEE= 

S553 C1714 004737 
scé4 

SS5E5 

S566 017170 ©€12777 
5&c7 

S558 

s5é3 

570 

557) 

5672 

£573 

S274 O1717E O13746 
5575 6i7202 OS=716 
5577 217206 012677 
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034402 


034426 


se 


C34716 


024636 


004516 


163006 


Tien) 


4 
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WRITE READ HEADER AND DATA 


mn 


aries 


WRIFOR 


ice SAVE o,gaSRVER FOR 


13:23 PAGE 118 


RO, J8FLHEAD 


RC, DRCLARER 
° 


RO,a88UN 


3WORD C 


WRITE bss 


an RO, a8sA 
SAVERE 

17. 

ISR PC, JBCHECKT 

MOY DBRPYVEC, DRPVEC 
MOV DBWRIFOR, -(SP) 
BIS eGO'TE, (SP) 

MOV (SP)+,2RHCS! 


ee ee ee - oo << ee — —— 


i SAVE vite ist pee tn REINTS 


; CLEAR ects Sepa peas RO NeptAtastA 3° 


= WRITE HEADER AND DATA COMMAND WILL SE FILLED 


3367 NOES RUN FOR DATS COMMEND 


SECTOR G 

RACK k 9 
ol NT (DATA) =256.+ 
74 HEADER WORDS 

:8US APORES 

START ING mores OF DATA 
BUFFER FROM 
:D0 NOT inniais BUS woes INCREMENT 
718 BITS PER WORD FORM 
;00 NOT INHIBIT ECC RORRECTION 
ae NOT INHISIT yes COMPARE 

T REACY 72 DO WRIFOR 
DER AND DATA WITH IN. RHCS1 


tlt PFTER WRITE HEADER AND DATA 
5 BaVE REGISTERS 

S THE ade he REGISTER SAVED 
aa he ADDRES OF WHERE 
: THE REGISTERS Bre SAVED : 
: NUMBER OF REGISTERS ns 
: SAY ED = 17. 


: CHECK OVA, ROY, MOL, DPR, DRY, Vv. 


4 VECTOR ADDRESS 

* IF P-CLOCK IS PRESENT 

ME2* IF P-CLOCK IS NOT PRESENT 
ONLY SAVE 


YEINDER ROORESS 
AHEAD REGISTERS 


;GET READY TO MOVE COMMAND 
GET READY TO SET GO AND 
ENABLE INTERRUPT 









Turiye-- 
Luan 


inioe 
=) 
- 
mu 
Gd 
oO 


alta Teal i altaltalial tal 
TaTtaTeairalial 


S605 
S606 017274 
S607 1.276 
5608 017202 
S60$ 017306 
5610 

137310 
5 - 
S613 - 
S6i% 017210 
56i5 017314 
5616 017316 
S6i7 017320 
S618 017324 
S61$ 017326 
S620 017230 
S621 017334 
Sé2e 017336 
S23 
Sé24 
Sé25 


5626 017340 
St22 017344 


MAT NO et a 
DERF ree 


Foo 
Fetes it 
rf YVR 
IN 


605 


405 


=e fe 
LOD MWernm 


0&3 


004037 
004522 


017362 





cy ie 
WRITE’ 


i= 


MA 
WR 


001126 
004519 


O344ES 
O344E0 


O344E0 


C3ss4é 





17-SEP-7 
¥ ROER AND DATA 


£43: 
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+62 IN RHCS1 FOR WRITE HEADER AND DATA 
sHITH INTERRUPT ENABLED 









MOV aR: RO AVE RHCS1 DURING ABOVE OPERATION 
MOV igh ¥ RHOSI DURING ABOVE OPERATION 
: ONE REVS EN=16670 mrtRo SEC, ECTOR = 760 MICRO SEC 
WAT sWALT FOR ROY BIT TO SET 
RHCS1 “WAIT FOR RHCS1 REGISTER 
ROY :WAIT FOR RDY BIT IN RHCSL REGISTER 
308. ‘ALLOW 9080 MICRO SECONDS 
933. :RDY MUST SET BETWEEN 






*690 AND 17470 MICRO SECONDS 
OF BHC! ich eo ALREADY SAVED IN 






‘oa. CONTENTS OF 





AND RS INNEDIATELY AF 
hed _ BWRIFOR, -( SP) ay & COMMAND 
BIS sIE'Go! ova, (SP) CLUDE 1E:G010v8 
MOV (SP) ,aa8cbbAT :SAVE FOR PRINTOUT 
CMP (§P)+,R0 s DURING ABOVE OPERATION ONLY IE!GO!DVA 
COMMAND SHOULD BE SET 





BEG 64S P : BRANCH IF GOOD 
ATA 


MOV “ig as38Q0AT 
MOV ot 1, J#REGADR SPATL ING REGISTER whe 1 





DURING ABOVE OPERATION ONL 
‘COMMAND AND IE!GO!DVA SHOUL p BE S 
MOV aMOL! SeboaT A5BN5 qi SET DURING SpERAT Ton IN RHDS1 





MOV (SP 30860 SAVE FOR PRIN 

CMP (§P)$, = DURING ABOVE OPERATION ONLY MOL! DPR! vy 
SHOULD SET 

BEQ 565 :BRANCH IF GOOD 

MOV RS, JeSBODAT ATA 


;BAD D 
MOV R3, d#REGADR FAILING REGISTER RHDS1 
ERROR 63° ;DURING ABOVE OPERATION tl 
;MOL!DPR!VV SHOULD BE SET 







-NOW CHANGE SAVED REGISTERS 0 EXPECTED VALUES 
sR RC, OaF ILLRE sMOV O INTO SAVED RHWC 
RHWC SAVED REGISTER TO CHANGE 


Q 

JSR RO, J#F ILLRE V _WREROM+< 260. *2> i SAVED RHGA 
R pa REGISTER TO CHANGE 

bie RO < ERO ae 


DA 
RO, dF ILLRE INTO SAVED RHDST 
SAVED beats? R TO CHANGE 


1 ;DATA 
;NOW COMPARE REGISTERS BEFORE WRITE HEADER AND DATA 
WITH REGISTERS AFTER CONMAND 


JSR RO, JUCOMREG 5 coer F VALLE REGISTERS WITH 










;PRESENT 
SAVERE ;G00D DATA SAVED IN "SAVERE’ 
We ;TEST DATA STARTING FROM "RHWC’ 
. AZ REGISTERS TO Be COMPARED 
1$ *RETURN TO 1$ ON 
2g RE TORN TO 2$ ON Ff RoRROR 
















S646 017382 
Seu? 017366 
S648 917370 
5649 01737 
S650 G17374 
5651 017376 


S66i O0174C4 
S6be 
S663 
S64. 
S6ee 017410 
5665 017414 
5667 017416 
SSS 0174¢0 










| §682 017436 
S683 017440 


gs 
Sess 017442 


re ne se ee 


MACYL1 27¢ 17-SEP- 7 13:23 PAGE 120 
Tee WRITE-READ HEADER AND DAT 
10402? i$: BEROR 27 - ;WRITE HEADER AND DATA 
000207 TS PC 


s CAUSED MPROPER REGISTER 
; G00 earn GIVES WHAT SHOULD 


“RECEIVED DATA GIVES WHAT 
“WAS THERE AFTER COMMAND 


iNOW WRITE FROM SUFFER WILL BE CHECKED 7. SEE THAT 
;NOTHER GOT CHANGED 






















OO4037 O36S76 - JSR RO, J8COMPAR oe. _ BLOCKS OF MEMORY 
093444 REINTO :GO0D DAT STARTS FROM REINTO 
002400 WRF ROM ; TEST BATA STARTS FROM WRFROM 
S90404 260. 250. WORDS 10, COMPARED 

017400 | 3$ SRETURN TC 3$ ON ERROR 

017404 4$ RETURN TO 4$ ON NO ERROR 


104030 3$: ERROR 30 ;WRITE HEADER AND DAT 
000207 RTS PC :CHANGED WRITE FROM BUFFER 


;NOW A READ HEADER AND DATA COMMAND WILL BE GIVEN 
READ INTO BUFFER IS FILLED WITH ONES 


094737 G34S5SS JSR PC, J8CLDISK SET RI-RHCS! R2-RHCS2 
:Ro-RHOS. Y-RHER1 
“GIVE RH INITIALIZE 

: SETUP NTT 4 UBE 

004037 o34426 ISR RO, JBCLAREA :CLEAR 260. WORDS, FROM SEINTO 

503444 RE INTO : STARTING FROM REINTO 

900404 260. WORDS 

177777 -} FILL WITH -2 


:NOW FILL COMMAND 


004037 O36522 . ISR RO, J#RUN :SETUP TO RUN FOR DATA COMMAND 
po0000 - 0 :CYLINDER 0 
900 .BYTE QO s SECT ORO 
900 "BYTE TRACK 0 
177374 -256.-4 : WORD colINT (DATA)=256.+ 
-4 HEADER WORDS 
oo3444 REINTO 


;BUS_ADORESS 
: STARTING pponeas OF DATA 
p ;00 NOT TRTETT BUS ADORE SS JCSEMENT 
CI!FMT22 316 BITS PE , = ORMA 
; INHIBIT: ive CORRECT 
:00_NOT_ INHIBIT READER COMPARE 
002362 REF OR :GET READY TO DO A REFOR a 
;READ HEADER AND bara WITH 72 IN RHCS) 


eyed 
01400 
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WRITE /READ MEADER AND DATA 





MAINDEC-11-DERPU-8 
DERPUS.P11 Tee 










5890 iNOW SAVE REGISTERS FOR COMPARISON AETER READ HEADER AND DATA 
5691 O17444 OO4037 O34716 JSR RO, aWSAVER ;SAV S 
S6S2 O174s0 02210 RHWC RUC [S THe FIRST REGISTER SAVED 
S593 O1THS2 004522 SAVERE iSIBRTING ADDRES. OF MHERE 

: GISTERS ARE SAVED 
5695 oc174s4 oo00z2 18. EER Of JREGISTERS 







5698 017456 OO04737 034636 JSR PC, J&CHECKT ;CHECK DVA,RDY,MOL,DPR, DRY, VV 












B01 O17462 913777 004516 162514 NOV QERPHVEC, DRPVEC ;SET RPOY YECTOR ADDRESS 
10 rTIMEL” IF PeCLOCK 1S PRESENT 
5703 QR 70, "TIMEe? TF B-CLock IS NOT PeESENT 
5204 :*TIME’ WILL ONLY Sq 
75 CURRENT CYLINDER AOORESS 
5708 SAN: LOOK AHEAD REGISTERS 









703 O17470 013746 002362 MOV DHREFOR, - (SP) sGET READY TO MOVE COMMAND 
5710 O17474 052716 900101 BIS GO! IE, SP) :GET READY TO SET GO AND 

S71! sENABLE INTERRUPT 

S7i2 O17S00 O12677 162512 MOV (SP) +, IRHCS1 OW TH 

571 72 IN RHCS1 FOR READ DATA 

5714 “Wize INTERRUPT 

5715 017504 o11100 MOV 3R1,RO :SAVE RHCS! DURING ABOVE OPERATION 
E716 017506 011305 MOY 3R3;RS :SAVE RHDS1 DURING ABOVE OPERATION 












5717 
571i 
5719 O17519 104410 WAT sHATT FOR ROY BIT TO SET 
6720 017512 O02216 RHCS1 WAIT FOR RHCS1 REGISTE 
S72! 017514 009 RDY WAIT FOR ROY BIT IN RHCS1 REGISTER 
Bee 07516 O01614 902. ALLOW eee ICR : SECOND 
723 «017520 901507 839. :ROY 
5724 Fie 70 RIGO SECONDS 
5725 :COMPARE CONTENTS OF rucee ane RHDS1 ALREADY SAVE. IN 
5726 RO AND RS IMMEDIATELY AFTER G 
£727 017522 O13746 o02362 hov JeREFOR,-(SP)  ; SAV e° Gone AND 
5728 O17526 052716 OO410! BIS HE foot bv (SP) : INCLUDE TE: G08 bv 
5729 017532 011637 001124 MOV (SP), aeSGDDAT  ;SAVE FOR PRINTOUT 
5730 017536 22600 CMP (appiene s DURIN NG ABOVE OPERATION ONLY IE!GO!DVA 
5731 *AND COMMAND SHOULD BE SET 
5732 017540 O0140S BEQ 67S ; BRANCH BG GOOD 
5732 017542 010037 001126 MOY RO, 8SBODAT i 
5734 617546 610137 OO4510 MOV R1’ JSREGADR AIL NG MeEGISTER RHCS1 
6735 017552 104021 ERROR 21 NG ABOVE OPERATION ONLY 








‘CO 'GO'DVA SHOULD BE SET 
6737 017554 012746 10500 &7$: MOV #MOL!DPR!VV,-(SP3 SAVE BIT S SET DURING OPERATION IN RHDS1 
6728 017560 O11637 O01124 MOV (SP) “JRSGDDAT SAVE FOR PRINTOUT 
6739 017564 O22605 CMP (SP)$,R5 :DURING ABOVE OPERATION ONLY MOL!DPRIVV 
5740 ‘SHOULD BE SET 
5741 O17566 O01405 BE 69S ; BRANCH IF GOOD 





$74 17570 010€37 BOLLE. MOV RS, @s8$BDDAT Pa ? TA 
574 17574 010337 O04510 MOV R3, J#REGADR ;FAILING REGISTER RHDS1 
5744 017600 104063 ERROR 63 ;DU RI NG ABOVE OPERATION ONLY 






25: :MOL!DPR!VV SHOULD BE SET 
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DERPUB.Pil Tee WRITE/READ HEADER AND DATA 


63$: 
; CHEANGE rye REGISTERS TO EXPECTED VALUES 


guy cone ba, PONTE as ASAE HA 


0 
034460 JSR RO, J#F ILLRE MOV AREINTO+< 260. #2> INTO SAVED RHBA 
HBA : SAVED megieien TO CHANGE 
RE INTO+< 260. #2> 


: GIs! 
034460 JSR RO, J#F ILLRE :MOV_1 1 hte SAVED RHDST - 
: HOST j SAVED REGISTER 10 CHANGE 


AR ER BEFORE READ HEADER AND DATA 
H REG AFTER COMMAND 


035546 JSR RO, J8COMREG or awed REGISTERS WITH 


PRES VAL 
SAVERE ;GO0D DATA SAVED IN *SAVERE’ 
Wc ; AR FROM *RHWC’ 


‘ N N ERRO 
O17654 :RETURN TO 6§ ON NO ERROR 


104031 - : 31 ;READ HEADER AND DATA CAUSED 
000297 : R PC IMPROPER REGISTER CHANGE 
+6000 DR DATA GIVES WHAT SHOULD 


RECEIVED pare cman WHAT WAS 
;THERE AFTER COMMAND 


;NOW READ INTO BUFFER WILL SE CHECKED TO SEE 
arvcan THE READ WAS GOOD 


017654 004037 O36576 - JSR RO, J#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 

0175 002400 WRF ROM ;G00D DATA STARTS FROM _WRFROM 
RE INTO ;TEST DATA STARTS FROM REINTO 
260. QO. WORDS TO BE COMPARED 

7$ RETURN TQ 7$ ON ERROR 

017670 017676 10$ :RETURN TO 10$ ON NO ERROR 


017872 104032 7$: ERROR 32 saITE HEADER AND DATA 


017674 00207 LLOWED BY A READ HEADER 
< SAND DATA GAVE A READ ERROR 
SERROR MAY BE IN READ OR WRITE 

017876 2 108: 


HEHEHE HEHEHE HEHEHE HEHE HEHE HEHEHE HEHE 
;*TEST 23 READ DATA 


~ THIS TEST READS DATA WRITTEN BY THE PREVIOUS TEST 
THE WRITE FROM BUFFER IS FILLED WITH ALL OS 
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DERPUB.P1) T23 READ DATA 


| ayy oe iS a2) en > REGISTERS SAVED 


saa aa HS SE "SEITE BLES 
s RRRARAAL KARA LHL ERARAREL ARAL EKA RRA AAL EAA RELE RAF REL ALLE LL ELS ELLER 


1767; 4 tstT23: SCOPE 
12878 ieee 901009 Roy #STACK, SP RESET STACK 
017704 012737 000023 oc4s14 MOV #23, a8 TSTNM :SAVE TEST NUMBER 


004737 O34ss6 ISR PC, J#CLDISK sSET RI-RHCS!, R2-RHCS2 
. *R3-RHOS1, R4-RHERI 
:GIVE Ril INITIALIZE 
:SETUP UNIT NUBER 


-FILL WRITE FROM BUFFER WITH EXPECTED DATA 
O34426 JSR RO, J#CLAREA ;CLEAR 256. WORDS FROM WRFROM 
) MRE ROM i STARTING EROM WRERO 


;ef5. WO 
FILL WITH O 


we oe 


;NOW THE READ DATA COMMAND WILL BE FILLED 


004037 036532 JSR RO, J#RUN ;SETUP_ TO RUN FOR DATA COMMAND 
o00o00 0 ; ;CYLINDER 0 
090 ‘ 3 - ;SECTO 


000 . ; TRACK 0 
177400 -256. ;WORD COUNT = 256. 


003444 REINTO :BU ORESS 
‘ STARTING ADDRESS OF DATA 
BUFFER = 0 


pooo00 0 : T BUS ADDRESS INCREMENT 
914000 ECI!FMT22 ; TS PER WORD FORMA 
: TI HEADER COMPARE 
002360 READAT -CET READ DO A READAT 
i ;READ DATA WITH 70 IN RHCS! 


sNOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND 
RO, d#SAVER + REGISTER 


094037 034716 SSR 
002210 -RHW HWC IS THE FIRST REGISTER SAVED 
004522 SAVERE + OTARTING ADDRES RE 

THE REGISTERS ape SAVED 
oooo22 18. NUMBER OF =-REGIST ERS 


004737 034636 JSR PC, J&CHECKT ;CHECK DVA,RDY,MOL,OPR,DRY, VV 


013777 OO4S16 162206 NOY @RPYVEC, ARPVEC ;SET,RPOY YECTOR ADDRESS 
;7 rTIMEL’ IF P=CLOCK IS PRESENT 
$OR TO *TINE®” IF P-CLOCK IS NOT PRESENT 


: WILL ONLY SA 
;CURRENT CYLINDER ADDRESS 
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DERPUB.Pil Te3 READ DATA 


;AND LOOK AHEAD REGISTERS 


77 360 MOV a4R ADAT 5 (SP) GET READY TO MOVE COMMAND 
pbrtos Bessie BRETRI aba GET AEAby 16 Set co-aNO 
‘ENABLE INTERRUPT 
O1267Z, 162204 (SP)+, JRHCS1 369. WITH 
IN RHCS1 FOR READ DATA 
shittH INTERRUPT ENABLED 
3R1,R0 :SAVE RHCS! DURING ABOVE OPERATION 
JR3,RS SAVE RHDS1 DURING ABOVE OPERATION 


58S8 
5859 
$8 


;WAIT FOR ROY BIT TO SET 
:WAIT FOR RHCS1 REGISTER 
“WAIT FOR RDY BIT IN RHCS1 REGISTER 
SLL OW 9080 MICRO SECONDS 
*ROY MUST SET BETWEEN 
80 AND 17470 MICRO SECONDS 
sCOMPARE CONTENTS OF oF ruck eft RHDS1 ALREADY SAVED IN 
5RO AND RS IM NEDIATELY R GO 
013746 JeREADAT (5B) Re COMMAND 
a]E#GO!D0A, (SP LUDE TE: G01Dv3 


052716 NC 

011837 001124 (SP).a apbat :SAVE FOR PRINTOUT 

022600 CMP (Sp)4 RG ; DURING ABOVE OPERATION ONLY IE!GO!DVA 
OMMAND SHOULD BE SET 


0014 64S : BRANCH IF GOOD 

010037 90 RO, J#$8DDAT TA 

010137 MOV R1, d#REGADR FAILING REGISTER RHCS1 
104021 21’ ; DURING ABOVE OP 


COMMAND A HOUL SET 
012746 : #MOL! DBE YY ac SP) ;SAVE BITS SET BURING SPERAT ION IN RHDS1 


011637 (SP). a8SGDDAT  ;:SAVE FOR PRINTOUT 
022605 CMP (3p)$ Re s DURING RBOVE_ OPERATION ONLY MOL!DPR! VV 


H 
001405 665 ; BRANCH IF GOOD 
010537 <p RS, d#S8DDAT TA 
010337 MOV R3, J#REGADR ;FAILING REGISTER RHDS1 
104063 63° :DU RING ABOVE OPERATION ONLY" 
;MOL!DPR!VV SHOULD BE SET 


- iNOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 
034460 ISR RO, as FILLRE ;MOV_O INTO SAVED RHWC 
HWC ; SAVED REGISTER TO CHANGE 


; 

034460 JSR RO, d#F ILLRE MOV REINTO+<256.#2> INTO SAVED RHBA 
RHBA ; SAVED rs TO CHANGE 
RE INTO+< 256, #2) 


os4e0 JSR -RO,a#FILLRE =; MOV 1 TAT SAVED. RHDST 
ee22 RHDST SEED REGISTER TO CHANGE 
goood: +9 °—— l :DAT 
;NOW COMPARE REGISTERS BEFORE READ DATA WITH 
;AFTER COMMAND 
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DERPUB.P11 Te3 DATA 


0U4037 O35546 


5 EREKKEK ARERR KARE REE EEE HE EEE ER EERE ERE EEE EERE EERE EE 
:¥TEST 24 WRITE/READ DATA 


22 2 2 2 2 ee ee 2 oe ee SS ee Oe eS 


ee ee ee ee ee ee re rere ere eee re re 7) 











JSR RO, J#COMREG ; COMPAR ig REGISTERS WITH 







; PRESEN 
SAVERE ;G000 DATA SAVED IN 'SAVERE’ 
WC ; TEST DATA STARTING FROM *RHWC’ 
18. :18. REG eee TO Cm COMPARED 
1$ SRETURN TO I$ ON 
2s ;RETURN TO 2$ ON NO ERROR 
RRROR Be i Re eRGe CAUSED IMPROPER REGISTER 





*GOOD DATA GIVES WHAT SHOULD BE THERE 
RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND 
s NOW READ INTO BUFFER WILL BE CHECKED TO SEE THAT READ 









JSR RO, J&COMPAR ; COMPARE TWO BLOCKS OF MEMORY 







WRF ROM ;S00D DATA STARTS FROM_WRFROM 
REINTO ;TEST DATA STARTS FROM REINTO 

256. 3256. WORDS TO BE COMPARED 

3$ RETURN TO 3$ ON ERRO 

4$ RETURN TO 4$ ON NO ERROR 











ERROR 34 ;READ DATA COMMAND 
RTS PC ;READ INCORRECTLY 















THIS TEST GIVES A WRITE DATA COMMAND FRO eg 0 


VIOUS TEST 
THEN READ DATA COMMAND IS GIVEN FOR 256 WORDS IN 


CTOR, KEY 
WRITE FROM BUFFER AND READ INTO BUFFER ARE FILLED WITH 

200 ONES AND cE Roesee 

THE WRITE DATA COMMAND IS LOADED EXCEPT GO AND IE 

ALL REGISTERS ARE SAVED AND THEN GO IS GIVEN TO WRITE DATA 


THEN ALL REGISTERS ARE COMPARED TO CHECK FOR IMPROPER 
CHANGE, THEN WRITE FROM BUFFER IS CHECKED FOR NO CHANGE 


THEN READ INTO BUFFER IS FILLED WITH 200 OF ZEROS 
aS 4 a ae WRITE FROM BUFFER IS FILLED WITH 200 ONES 
Te oe EXCEPT GO IS LOADED, ALL REGISTERS ARE SAVED 


ALL FEGI 
READ DAT 





STERS ARE CHECKED 
A IS CHECKED 
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DERPUB.P11 Te4 WRITE/READ DATA 


es BARRE cee ee ae en ae ee 
4: 


o00004 
B89? Sodde4 oowsiy HOY Reucgeternn «= ESAVE TEST NUMBER 
004737 234556 | JSR PC,@HCLDISK =; SET RI-RHCS1, R2-RHCS2 


ve met" {HGR 76 
:SETUP UNIT NUBER 


iNOW FILL WRITE | FROM BUFFER -200 OF 1°S AND S& OF 125252 
904037 034426 SSR RO, a#CLAREA :CLEAR 200. hinos FROM WREROM 
0 WRF ROM :STARTING FROM WREROM 

200. 200. WORDS 

=] FILL WITH -1 


034426 ISR RO, J#CLAREA : CLEAR Sb. HoRDS FROM WRFROM+<200. #2> 
WRFROM+< 200. ¥2> RTING FROM WRFROM+<200. *2> 


356. W 
125252 FILL WITH 125252 


:NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA AS 
WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISON NS 
“CAN BE MADE TO DETERMINE THAT WRITE DID NOT CHANGE BUFFER 
O34426 SR RO, J#CLAREA “CLEAR 200. WORDS, FROM REINTO 
REINTO SSTARTING FROM R REINTO 


-| ‘FILL WITH -1 


004037 O34426 JSR RO, JUCLAREA ; CLEAR Sb. WORDS, FROM REINTO+<200. x2> 
004264 REINTO+<e00. #2) in TARTING FROM REINTO+<200. *2> 
125252 ‘FILL WORT 125252 


;NOW WRITE DATA COMMAND WILL BE LOADED 
036532 JSR RO, J#RUN Fe TO RUN FOR DATA COMMAND 
0 ;CYLINDER 0 


0 ; 
0 s TRACK 0 
-200. ;WORD COUNT = 200. 
002400 WRFROM BUS ADDRE 
STARTING ADDRESS OF DATA 
000000 0 300 NOT INHIBIT BUS ADDRESS INCREMENT 
010000 FMT22 316 BITS PER WORD FORMAT 
00 NOT INHIBIT ECC CORRECTION 
500 NOT INHIBIT HEADER COMPARE 
READY TO DO A W 


902354 WRIDAT ‘GET 
;WRITE DATA WITH 60 IN RHC Ss 


:NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE DATA 
020316 CO4037 034716 JSR RO, d#SAVER ;SAVE REGISTERS 














MACY11 27(732) 
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DERPUB.P11 Te4 WRITE/READ DATA 


;ONE REVOLUTION = 16670 MICRO SEC, ONE SECTOR=760 MICRO SEC 


:690 AND 
;COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER R GO 
OV O#WRIDAT , 











;RHWC IS THE aie a a SAVED 
SSTARTING ADDRES OF WHER 

: THE REG Ap Thea oe AR gave 

NUMBER OF 









PC, J&CHECKT ;CHECK DVA,RDY,MOL,DPR, DRY, VV 








JBRPYVEC, JRPVYEC ;SET RPOY VECTOR ADDRESS 
:T0 ’TIME1’ IF P-CLOCK IS PRESENT 
;0R TO *TIME2’ IF P-CLOCK IS NOT PRESENT 
;’* TIME’ WILL ONLY SAVE 
CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 











BHR IDAT -(SP} ;GET READY TO MOVE COMMAND 
#GO!TE, (SP) GET READY TO SET GO AND 
sENABLE | INTERRUPT 


(SP)+, IRHCS1 360 W 
ONIN’ RHCS1 FOR WRITE DATA 
sith INTERRUPT ENABLED 
3R1,RO :SAVE RHCS1 DURING ABOVE OPERATION 
JR3,RS :SAVE RHDS1 FRING ABOVE OPERATION 














;WAIT FOR RDY BIT TO aet 
;WAIT FOR RHCS1 REGISTER 
;WAIT FOR ROY BIT IN ket REGISTER 
ALLOW 9080 MICRO pecoN CS 
:RDY MUST a BETWEEN 

7470 MICRO SECONDS 








;SAVE COMMAND 

HEV CORDUR, “INCLUDE _IE!GO!DVA 

(SP), aes acbaY *SAVE FOR PRINTOUT 

(SPE RO :DURING ABOVE OPERATION ONLY IE!GO!DVA 
: HOULD BE SET 








64S 
RO, a#SBDDAT 
R1, J#REGADR FAILING REGISTER RHCS1 
21 ; DUR ING ABOVE OPERATION ONLY 

“COMMAND AND IE!GO!DVA SHOULD BE SET 
WHOL !DPREVY -(SP3 -SAVE BITS SET DURING OPERATION IN RHDS1 
(SP). a#SGDDAT  ;SAVE FOR PRINTOUT 








ap)4 Re ‘DURING ABOVE OPERATION ONLY MOL!DPR! VV 
*SHOULD BE SET 

bbs ; BRANCH IF GOOD 

RS, a#SBDDAT . ATA 





R3'aeREGADR | ;EILING. REGISTER RHDS! 
63" URING ABOVE OPERATION ONLY 
'MOLIDPR®VY SHOULD BE SET 
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RPUB.P11 Te4 WRITE/READ DATA. 


6082 
sNOW CHANGE SAVED BEGISTER TQ EXPECTED VALUE 

ae 020454 004037 034460 JSR RO, J#F ILLRE vp ATO Q SAVED RHWC 

020460 002210 RHWC SAVED REGISTER TO CHANGE 
6086 Oe04%6e 000000 0 :DATA 
6087 Ge0464 004037 034460 JSR RO, J#F ILLRE :MOV_WRFROM+<200.%2> INTO SQVED RHBA 
6088 0204 eed RHBA ;SAVED REGISTER TO CHANGE 
6089 Oe0472 O03ee WRF ROM+< 200. *#2> ;DATA 
6099 020474 004037 O34460 JSR RO, J#F ILLRE sMOV_1 INTO SAVED RHDST 
60391 020500 90eece "is — saved REGISTER TO CHANGE 


6094 ; NOW Sytee REGISTERS BEFORE WRITE DATA WITH REGISTERS 
Phar SAFTER COMMAND 

6097 020504 004037 035546 JSR RO, J#COMREG ;COMPARE SAVED REGISTERS WITH 
6098 ;PRESENT VALUE 


6099 020510 o04See oe ;GO0D DATA SAVED IN ’SAVERE’ 


O2 : *RETURN TO 1$ ON ERROR 

93 020526 2$ “RETURN TO 2$ ON NO ERROR 
O05 o20S22 104925 1S: ERROR 35 ;WRITE DATA COMMAND CAUSED 
0& 920524 000207 RTS PC ‘IMPROPER REGISTER CHANGE 
07 *GOOD DATA GIVES WHAT SHOULD 


08 :BE 

09 ;RECEIVED DATA GIVES WHAT WAS 
o THERE AFTER COMMAND 

le ;NOW WRITE FROM BUFFER WILL BE CHECKED FOR NO CHANGE 
ig 020526 2s: 

15 O20Se6 004037 036576 JSR RO, J#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 
16 020532 O03444 REINTO GOOD DATA STARTS FROM REINTO 
17 002400 WRF ROM TEST DATA STARTS a WRF ROM 
18 020536 000400 256. 3256. WORDS TO BE COMPARED 

19 020540 020544 3$ RETURN TO 3$ ON ERROR 
st 020542 O205S0 4§ RETURN TO 4$ ON NO ERROR 

e 


23 O20544 104036 3$: ERROR 36 ;WRITE DATA COMMAND CHANGED 
4 O20546 000207 RTS PC WRITE FROM BUFFER 


25 
eb NOW A READ DATA COMMAND WILL BE GIVEN 

28 FILL READ INTO BUFFER WITH 200 ZEROS AND S& OF 377 

23 020550 yg: 

31 020550 004737 O34SS6 JSR PC, J#CLDISK ;SET RI-RHCS1, afecnees2 

32 :R3-RHOS1 RHER1 

33 : GIVE Beets INITIALIZE | peat ess 
34 ‘SETUP UNIT NUBER 

35 o20554 O04037 O34426 JSR RO, J#CLAREA ‘CLEAR 200. WORDS FROM REINTO 

36 20560 o03444 REINTO STARTING FROM REINT 

37 O20562 600310 200. 200. WORDS 





NSSIN SSIS SISO OOOO OOOO OM MMNUIUIUIUIUIUIUT 


KKM KNMCM MMMM KOM KMKMN MMC CKO MMCOPTONOMOMMOOMrOOrOrmwrmwrmd 
a ey ey ey ed ed ed ed dd ed ed rd dd dd ed ed ed ed ed ed ed ed ed ed ed ed ed ed ed ee ee ee ee ee 


WwoWOWDWoOwWooOwWoOocd 


Whe OS. OG Nut 


Pll 
020564 


020640 
020642 


020544 
O20646 
020652 
020654 
020656 
020660 


020654 


C-11-DERPU-8 


Te4 


177470 
co3444 


000000 
014000 


002360 
004037 
002210 
004522 
000022 
004737 


013777 
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- JSR RO, J#CLAREA 
. WREROM 


JSR RO, J#RUN ;SETUP_ TO RUN FOR DATA COMMAND 
0 ;CYLINDER O 
0 ;SECTOR O 
0 ; TRACK O 
~200. ;WORD COUNT = 200. 
_. REINTO ;BUS ADDRESS 
;STARTING ADDRESS OF DATA 
;BUFFER = REINT 
0 ;D0 NOT INHISIT BUS ADDRESS INCREMENT 
ECI!FMT2e ER WORD FORMAT 


004516 161312 











sFILL WITH O 


0 

ISR RO, J#CLAREA ;CLEAR S6. WORDS FROM R INTO+<200. #2» 
REINTO#< 200. #2) “STARTING FROM REINTO+<200. #2) 
377 


356. WO 
7 sFILL WITH 377 





“FILL WRITE FROM BUFFER WITH 200 ONES AND S& OF 377 
;CLEAR 200. WORDS, FROM WRFROM 
iSTARTING FROM WREROM 


= ial tt FILL WITH -1 
ISR RO, J#CLAREA sCLEAR 56. WORDS, FROM WRFROM+<200. x2> 
WRFRON+ 200. #2) “STARTING FROM WRFROM+<200. ¥2) 


56. WORDS 
377 ‘FILL WITH 377 


;NOW FILL COMMAND 


I 
READAT ‘GET READY TO DO 
“READ DATA WITH 70 IN RHCS1 


“NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND 
ISR RO, J#SAVER ;SAVE REG 
RHWC op ae *RHWC IS THE FIRST REGISTER SAVED 
SAVERE *STARTING ADDRES OF WHERE 
THE REGISTERS ARE SAVED 
18. ‘NUMBER OF REGISTERS 
| “SAVED = 18. 
ISR PC, JHCHECKT :CHECK DVA,ROY,MOL, DPR, DRY, VV 


MOV Q#RPYVEC, ARPVEC ;SET RPOY VECTOR ADDRESS 
;TO 'TIME1’ IF P-CLOCK IS PRESENT 
;OR TO. *TIME2’ IF P-CLOCK IS NOT PRESENT . . 
;° * WILL ONLY SAVE 

;CURRENT CYLINDER ADDRESS 

;AND LOOK AHEAD REGISTERS 














MAINDEC-11-DERPU-B 
DERPUB.P1i Te4 
020672 


029676 
020702 


021004 


021004 


021032 


021034 


104021 
012746 


104063 


004037 


000001 


004037 


002360 
000101 


161310 


002360 
4101 

1124 
001126 
004510 


0500 
1 


Ol 
001124 


001126 
004510 


O344E0 


O34460 


034460 


035546 
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675: 


69S: 
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ERROR 63° 


JSR RO, J#F ILLRE ;MCV_O INTO SAVED RHWC 
a j SAVED REGISTER TO CHANGE 


RHBA 
_ REINTO+<200, #2> 
JSR 











;GET READY TO ou COMMA 
Ginna ° all 
1 FOR ere, DATA 


ERR 
MOV dR1,RO LM: nie Url et ROVE OPERATION 
MO" AR3,RS SAVE RHDSI DURING ABOVE OPERATION 






MOV J#READAT , -(SP) 
BIS #GO!TE, (SP) 


MOV (SP)+, JRHCS1 










AT ;WAIT FOR RDY BIT TO SET 

RHCS1 ;WAIT FOR RHCS! REGISTER 

RDY jhAIT FOR ROY BIT IN RHCS1 REGISTER 
908. LLOW 9080 MICRO SECONDS 

839. RD MUST S 





ET BETWEE 
-690 AND 17470 MICRO SECONDS 
OF RHCS1 1 BND RHOS! ALREADY SAVED IN 





;COMPARE CONTENTS OF 







sRO AND RS IMMEDIATELY AFT 
READAT,-(SP) ;SAVE COMMAND 
Br 1E+G020%0 (SP) :1N CLUDE E TE2G0:0va 
MOV (SP), a#$GDDA AV PRINT 
CMP P)+,RO : DURING OR BOVE OPERATION ONLY IE!GO!DVA 
le ‘os :AND COMMAND SHOULD BE SET 


‘BAD DATA. GOOD 
sFAILING REGISTER RHCS1 





MOV RO, J#SBDDAT 
MOV R1,d#REGADR 








ERROR 21 *DURING ABOVE OPERAT TON ONL 
“COMMAND AND IE!GO!DVA SHOULD BE SET 

MOY #MOL! DPR' VV, -(SP3 - SAVE BITS SET DURING OPERATION IN RHDS! 

MOV (SP) J¥SGDDAT  ;SAVE FOR PRINT 

CMP (SP ye iDURTNE BBOVE OPERATION ONLY MOL!DPR! VV 





BEQ 69$ 
MOV RS, J#SBDDAT 
MOV R3, J#REGADR 





; SHO 

BRANCH IF GOOD 

BAD DATA 

FAILING REGISTER RHDS1 


:DUR ING ABOVE OPERATION ONLY 
:MOL!DPR!VV SHOULD BE SET 







;CHANGE SAVED REGISTERS TO EXPECTED VALUES 






bye RO, J#F ILLRE MOV REINTO+<200.%2> INTO SAVED RHBA 


‘SAVED REGISTER TO CHANGE 
DATA 
INTO SAVED RHDST 
Saved REGISTER T@ , CHANGE 
;COMPARE REGISTERS BEFORE READ DATA COMMAND 
WITH REGISTERS AFTER COMMAND 


JSR RO, J#COMREG ;COMPARE SAVED REGISTERS WITH 
PRESENT VALUE 







RO, J#F ILLRE 
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i" 
a 
to 
“wo 
O20. 
o-»-- 
5g 
ee > 
~4< 
1"e~- 
n 
Tr 
_— 
©- 
La ] 
De 
-4- 
QD 


250 o21040 g04s22 SHVERE .G000 DATA SAVED IN ‘SAVERE’ 
BRL Seite Soares ae iTEST DATA STBRTING FROM. “Fic 
‘pede wee wise e -1&, REGIS } 8) 
BSE Berke beidee af RETURN TO £8 ON ERROR 
Bse4 S2i0sc Oe10e6 B§ 'RETURN TO 6$ ON NO ERROR 
BS5— 921052 104033 5$ Race 23 :READ DATA CAUSED IMPROPER 
gse> Oeices Hoos" rs BE ‘REG ISTER chang 
bss i000 DRIA GIVES MRT SHOULD SE THERE 
psc6 RELEIVED DRta BrVEs Was THERE 
as TAETER =SMMOND 


ute 


ow 
up 


sNOW READ INTO BUPFER 15 CHECKED FOR GOOD READ 


ius 


ONE be 
‘ 
o 
o 
toe 


anunIa? Oeste "Se Ro. cacOMPaR 


Ay 


futoty 


0-0 +e +e 
Cac 
Efeoere 

etat eta 
Gotu 

4 
a] 
oO 
; 
a 
» 
o 
3 


a steer? Fae se: {NTO 
PORE? 


wo 
future 
ore 
DOM ~ 5 

. 

. 

’ 

4’ 

J» 

£ 
aw 
~C2 4. 

ee 

a 


aaa 
nee 


108 ON NO ERROR 


if 
3 


abfte-- 


S2io7% ifso34 73: prncr 3 s INCORRES 7 DATA AFTER 
LD: = TS C ;WRITE BATA FOLLOWES SY A 
7k '®) Dat Ta 


13: ' Ps 
werteuwn oud. 


PRR 
atut sade 


c).0cD~ 


(O35 


ee ee ee 
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ReSS 
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(0 


fofufufufufofufurororututototurorore 
BRUNE ioe tee 


iB 


ae 
~ w= 
6310 Ge 








Wwrorr 
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roemmmc 


MATNOES i eae” 


’ 000004 


lasese 


004037 


125252 


004037 


34426 


034426 


3 
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p RERERAARARRAA SESS SARAAAAA LAA AAA RA LE RAARA ALE AA SLAF LELERL ALES ESE 





:eTEST 25 WRITE/READ DATA 
:* THIS TEST GIVES A WRITE DATA COMMAND FOR CYLINDER C 

* TRACK 0, SECTOR 9, KEYS 0, 256 WORDS | of S252 

:* THIS SECTOR R43 £9 FOtnateD 1B given FoR 

:* THEN READ D FOR 3? Tors IN 

:# SAME CYLINDER a rate EYS 

:# WRITE FROM BUFFER AND READ: taro” BUFFER ARE FILLED WITH 
:% 5b OF 125252 

i+ THE WRITE DATA COMMAND IS LOADED EXCEPT GO AND IE 

i ALL REGISTERS ARE SAVED AND THEN GO IS GIVEN TO WRITE DATI 
2% 

ty THEN ALL REGISTERS ARE COMPARED TO CHECK FOR IMPROPER 

i CHANGE, THEN WRITE FROM BUFFER IS CHECKED FOR NO CHANGE 
:* THEN READ INTO BUFFER IS FILLED WITH 256 OF ZEROS 

i+ WRITE FR FROM BUFFER IS FILLED WITH 

fe Tre Conta Except G0 IS LOADED, ALL REGISTERS ARE SAVED 
-? 

2% 

ro 

‘+ ALL REGISTERS ARE CHECKED 

% READ DATA IS CHECKED 

pEREEREREEEEDEESAESALEEARELERS EAD EEED SEER ERED EED EERE E EES ESET EEE 
2tiéss 





SCOPE 
MOY eSTACK, SP sRESET STACK 
MOV #25, a8tSTNM :SAVE TEST NUMBER 


JSR PC, JsCLOISK saat ©) gee 0 aware 







8 
SETUP UNIT NUBER 





“NOW FILL WRITE af BUFFER - xaeSe OF 125252 
SSR RO, J8CLAREA AR 256. WORDS. FROM WRFROM 
WRFROM SS TERTING FROM WREROM 









: ;256. 
l2S2Se sFILL WITH leSeSe 








;NOW READ INTO BUFFER BILL gE FILLED WITH SAME DATA AS 
!WRITE FROM BUFFER SC THAT AFTER A WRITE COMPARISONS 

CAN BE MADE T DETERMINE THAT ART TE DID Nor CHANGE BUFFER 
tee RO SACLARE SCLEAR 256. WORDS FR REINTO: 
REIN TO : STARTING FROM REINT 
125252 FILL WITH 125252 


;NOw WRITE DATA COMMAND WILL BE LOADED 
JSR RO, J8RUN ;SETUP TO RUN FOR DATA COMMAND 
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WRITE/READ DATA 
000009 9 ;CYLINDER O 
000 BYTE Q ;SECTOR O 
rd -BYTE 0 ; TRACK 8 
74 ~e50. ;WORD COUNT = 256. 
002400 - WRF ROM :BUS 
; STARTING oa OF DATA 
. ; BUFFER OM 
ooc009 ] 300 NOT Inert BUS st a INCREMENT 
010000 FMTee 316 BITS PER WORD F 


08 N NOT INHIBIT ECC RORRECTION " 
;D0_N T INHIBIT HEADER COMPARE - 
302354 WRIDAT : GET Rea DY 70 DO A WRIDAT 
sWRITE DATA WITH 60 IN RHCST 


~- 
o- 
oa 
Bs 


“NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE DATA 

O21166 OCO4C37 O34716 - 5k RO, J8SAVER : SAVE REGISTER S 
Osli7e 02210 Hic HWC IS THE FIRST REGISTER SAVED 
O21:74 O04Se2 SAVERE 3 STARTING ADORES OF WHERE 

:THE REGISTERS ARE SAVED 
021178 oood22 18. “NUMBER OF REGISTERS 

:SAVED = 18. 
021200 oc04727 034636 JSR ~ PC, 3eCHECKT ;CHECK DVA,RDY,MOL,DPR, DRY, VV 


u21204 013777 Oc4s16 180772 MOY ~' QeRPYVEC, ORPVEC :SET,RPO4 VECTOR ADDRESS 
| ‘Tings "IF P=CLOCK 1S PRESENT 
:0R 10, Tine?) ie JE B-CLOCK 1S NOT PRESENT 
i CURRENT CYLINDER AOORESS 
SAND LOOK AHEAD REGISTERS 


£392 921254 011637 001124 MOV (SP) ,ae$GObAT  ;SAVE FOR PRINTOUT 


121> O13746 002354 MOV OsURIDAT -(SP) ;GET READY 19 MOVE COMMAND 
1216 OS2716 099101 BIS E, (SP) :GET READY TO SET GO AND 
sNAB INTERRUPT 
021222 0912677 160770 MOV (SP) +, RHCS] WITH 
"360 IN RHCS1 FOR WRITE DATA 
| $376 sHITH INTERRUPT LED 
6377 021226 911100 MOV 3R1,RO ‘Cave ance DURING ABOVE OPERATION 
5278 O2i230 011305 MOV JR3.R5 :SAVE RHDS1 DURING ABOVE OPERATION 
p80 : ;ONE REVOLUTION=16870 MICROSEC, ONE SECTOR=760 MICROSEC 
6282 921232 104410 WAT ;WAIT FOR ROY BIT TO SET 
6383 021234 o02216 RHCS1 :WAIT FOR RHCS1 REGISTER 
£384 O21226 000200 RDY *WAIT FOR RDY BIT IN RHCS1 REGISTER 
6385 O21240 O01614 908. : ALLOW 2080 MICRO SECONDS 
| §386 Oele42 001507 839. :RDY MUST SET BETWEEN 
| £387 690 AND 17470 MICRO SECONDS 
| €388 _sCOMPARE CONTENTS OF RHCS| AND RHDS! ALREADY SAVED IN 
| §389 *RO AND RS IMMEDIATELY AFTER GO 
| €390 021244 013746 002354 MOV = @RWRIDAT,-(SP) ;SAVE COMMAND 
| 6231 O2l2cs0 052716 904101 BIS #IE'GO!DVA. (SP) : INCLUDE IE!GO!DVA 
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DERPUS. P11 Tes WRITE/READ DATA 


022600 (SP)+,R0 INS ABOVE OPERATION ONLY IE!GO!DVA 
; AND ee SHOULD BE SET 


Taos BAS iB 
100 0, J#SBDDAT 
R1; J#REGADR FAILING REGISTER RHCS1 
21 SDURING ABOVE OPERATION ONL 
“COMMAND AND IE'GO!DVA SHOULD BE SET 
WoL! DPR! VV. -(SP3 SAVE BITS SET DURING OPERATION IN RHDS! 
(SP). a8$GDDAT  ;SAVE FOR PRINTOU 
(SP)$,R5 :DURING ABOVE OPERATION ONLY MOL!DPRIVY 
"SHOULD BE SET 
cS ; BRANCH IF GOOD 
RS, J8S20DAT ATA 


R23) JSREGADR tPOTLING REGISTER RHOS! 
63 !DURING ABOVE OPERATION ONLY 
‘MOL'DPR!VVY SHOULD BE SET 
- NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 
034460 is R 0, J8F ILLRE INTO SAVED RHWC 
SRVED REGISTER TO CHANGE 


034460 JSR RO, J#F ILLRE :MOV_WRFROM+<256.#2> INTO SAVED RHBA 
RH SAVED REGISTER TO CHANGE 
WRFROM+< 256. *2> AT 


DATA 
034460 JSR RO, J#F ILLRE ;MOV_1 INTO SAVED RHOST 
RHDST 


s SAVED REGISTER TC CHANGE 


;NOW yt REGISTERS BEFORE WRITE DATA WITH REGISTERS 
AFTER COMMAND 


035546 JSR RO, J8COMREG i ERESENT TALE REGISTERS WITH 
ens $9000 DATA SA NED IN ttl 


N be 0 
RETURN TO 2$ ON NO ERROR 
104035 : ERROR 35 ;WRITE DATA COMMAND CAUSED 
000207 RTS PC IMPROPER REGISTER CHANGE 
;GO0D DATA GIVES WHAT SHOULD 


BE 
RECEIVED DATA GIVES WHAT WAS 
THERE AFTER COMMAND 


;NOW WRITE FROM BUFFER WILL CHECKED FOR NO CHANGE 


021376 eit 036576 JSR RO, J#COMPAR ; COMPARE nm LOK OF MEMORY 
REINTO GOOD DAT STARTS FROM REINTO 


021402 
021404 get : TEST BATA STARTS FROM pine Rott 


3$ ; $ ON ERROR 
4$ RETURN TO 4$ ON NO ERROR 





MATNOEC-11-DERPU-8 
DER 


MACY11_ 27(732) 
WRITE/READ DATA 


PUB.P11 Tes 
6449 
6450 
645i 921414 10403 
8452 021416 00020 
$453 
5454 
6455 
6456 
8457 O2i42e0 
64$8 . 
6459 O2ls20 OO4737 O34SS6 
£460 
6461 
6462 
6463 021424 037 O34426 
S464 1430 903444 
S465 021432 900400 
6485 021434 
S467 
6468 
6469 
647 1436 OO04037 O34426 
647: Qei44e 400 
647 1444 000400 
S473 O2l44s 125252 
6474 
6475 
6476 
6477 
6472 1450 004037 (036532 
6473 O214S4 000000 
S480 1456 090 
6481 021457 900 
6482 Oel4éO0 177400 
6483 Oel4é2e OO3444 
6484 
6485 
6485 021484 O00000 
6487 Oel4¥66 014000 
$489 
6489 
6490 021470 902360 
6491 
649¢e 
6493 
£494 
6495 021472 004037 O34716 
6496 021476 002210 
6497 Oe1sOC Co4S2e 
5498 
6499 021502 900022 
£500 
£501 
6502 021504 004737 O34636 
6503 
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3$: 


4$: 


.BYTE 
-BYTE 


ERROR 36 SWRITE DATA COMMAND CHANGED 
RTS BC {WRITE FROM BUFFER 


:NOW A READ DATA COMMAND WILL BE GIVEN 
sFILL READ INTO BUFFER WITH 256 ZEROS 
ISR PC, SCLDISK SET RI-RHCSI, R2-RHCS2 . 
Roe BHOS1 RHER1 
:GIV Aa INITIALIZE 
fsiraat NIT N 
JSR —- RO, @#CLAREA ‘CLEAR ue WORDS FRON REINTO 
REINTO :STARTING FROM REINT 
256. WORDS 
FILL WITH O 
“FILL WRITE FROM BUFFER WITH 2S6 OF 125252 
3sR RO, J#CLAREA ;CLEAR 256. WORDS, FROM WRFROM 
WRFEROM :STARTING FROM WREROM 


eS6. 3256. WO 
125252 FILL WITH 125252 


;NOW FILL COMMAND 

JSR RO, d#RUN ;SETUP TO RUN FOR DATA COMMAND 

0 ;CYLINDER 0 

0 * ;SECTOR O 

0 TRACK O 

;WORD COUNT = 256. 

:BUS ADDRESS 

aes pene OF DATA 

Q NOT INHIBIT BUS AOS Bo STENT 
ECI!FMT2e 316 BITS PER WORD FORMAT 


uearerr’ ECC CORRECTION 
D0 NOT INHIBIT "RREAORT 


-256. 
REINTO 


READAT ;GET READY TO he 


;READ DATA WITH 70 INR 


“NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND 
Sk RO, J#SAVER ; SAV E REGISTE 

HMC IS THE FIRST REGISTER SAVED 
SEVERE STARTING ADDRES OF WHERE 

THE REGISTERS ARE SAVED 
18. :NUNBER OF REGISTERS 
:SAVED = 18. 

ISR PC, JBCHECKT :CHECK DVA,RDY,MOL, DPR, DRY, VV 
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021510 


01377 


004037 
002222 


poBi81 


160464 


C02360 
CO4101 
001124 


001126 
004510 


010500 
001124 


001126 
004510 


O34460 
034460 


OS4460 


MACY11 27(732) 
WRITE/’RESD DATA 


OO4S16 160465 


67$: 


69S: 
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MOV JBRPYVEC , IRPVEC is ore VECTOR ADDRES 


Ones: eel TS ROY PRESENT 


10 

OTM’ WILL 
pap CYLINDER RODRESS 
SAND LOOK AHEAD REGISTERS 


MOV hy a =(SP) ‘BF peagy 18 TQ HOVE re 


BIS #GOrIE, (SP) 
: ENABLE ENTERRGET 
MOV (SP)+, ARHCSI 0 WITH 
o IN RHCS1 FOR READ DATA 
NTERRUPT ENABLED 
R1,RO , sty ances DURING ABOVE OPERATION 
R3-R5 *SAVE RHDS1 DURING ABOVE OPERATION 


WAT ;WAIT FOR RDY BIT TO SET 
RHCS1 sWALT FOR RHCS! REGISTER 
RDY WAIT FOR ROY BIT IN RHCS1 REGISTER 
908. FALLOW 9080 MICRO SECONDS 
839. ;ROY MUST SET BETWEEN 
*690 AND 17470 MICRO SECONDS 
; COMPARE CONTENTS OF RHCSI eft RHDS1 ALREADY SAVED IN 
RO AND RS I ATELY R GO 
hov a8 gEADAT "SAV OMMAND 
BIS 1E #0: 0VA ova, NCD : INCLUDE IE'GO!DVA 
MOV :SAVE FOR PRINTOUT 
CMP (36) - sDUR ING BOVE OPERATION ONLY IE!GO!DVA 
ND COMMAND SHOULD SE SET 


BEQ 67S BRANCH TF "08D 
ta RO, J#S8DDAT ATA 


OV R1’ J8REGADR FAILING REGISTER RHCSI 
ERROR 21 “DURING ABOVE OPERATION ONLY 
ND AND TEYGO!DVA SHOU LD BE SET 
MOV #MOL! DPR! VV =(3P) E BITS SET DURING OPERATION IN RHDS1 
MOV (SP). J8SGDDAT E FO oh PN 
CMP (SP)4 Re 


BORING ABOVE NOPERATION ONLY MOL!OPR! VY 
; SHOULD BE SET 


BEQ 69S ;BRANCH IF GOOD 
MOV RS, d#S8DDAT :BAD DATA 

OV R3, J#REGADR ;FAILING REGISTER RH 
ERROR 63° 


s DURING ABOVE. OPERATZON ONLY 


;MOL!DPR!VV SHOULD BE SET 


{CHANGE SAVED REGISTERS TO EXPECTED VALUES NR 
JSR «RO, JF ILLRE O INTO SAVED RHC ide) 
RHWC saved REGISTER TO CHANGE » 


0 
JSR RO, J#F ILLRE 


R 
REINTO+<2S6, *2> 
JSR RO, J#F ILLRE 


*MOV REINTO+<256.%2> INTO SAVED RHBA 
: SAVED Regier TO CHANGE 


1h 5. SAVED RHDST 
+ CAVED REGISTER TO CHANGE 
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24} 021656 000001 1 ;DATA 


; COMPARE REGISTERS BEFORE ero DATA COMMAND 
;WITH REGISTERS AFTER COMMA 


004037 O35S46 IR RO, d#COMREG + PRESENT VALLE REGISTERS WITH 
00422 SAVERE GOOD DATA SAVED IN ’SAVERE’ 
We TEST DATA STARTING FROM ’RHWC’ 
318. REGISTERS TO EA COMPARED 
RETURN TO S$ ON ERROR 
RETURN TO 6$ ON NO ERROR 


;READ DATA CAUSED IMPROPER 
REGISTER CHANGE 

:GO0D DATA GIVES WHAT SHOULD BE THE 
RECEIVED DATA GIVES WHAT WAS THERE 
AFTER COMMAND 


;NOW READ INTO BUFFER IS CHECKED FOR GOOD READ 
4037 036576 JSR RO, J8COMPAR ;COMPARE TWO ao OF MEMORY 
0 OM GOOD DATA STARTS FROM Fehon 
TEST DATA sTTS FROM REINT 
256. WORDS TO BE COMPARED 
RETURN TO 7$ ON ER 


ROR 
; RETURN TO 10$ ON NO ERROR 


104034 - 7$; ERROR 34 . ; INCORRECT DATA AFTER 
Oei722 000207 RTS PC WRITE DATA FOLLOWED BY A 


021724 108: 


et-s-1-- inh dallelainedaly}-+-1-+-p1-+-11-tl-4-+5-Salelelaelelaelebaelebaeleioieleisielaieeieleieleleeieieelel 
*TEST 26 WRITE/READ DATA 


THIS TEST GIVES A WRITE para COMMAND FOR CYLINDER 0 
TRACK 0. SECTOR 0, KEYS 0, 200 WORDS OF OS2525 
THIS SECTOR IS FORMATED BY PREVIO 

THEN READ DATA COMMAND ster GIVEN FOR oe WORDS IN 

OM READ OFT BUFFER ARE FILLED WITH 
200 OF figese AND 56 OF 
THE WRITE DATA COMMAND IS (ODED EXCEPT GO AND IE 
ALL REGISTERS ARE SAVED AND THEN GO IS TO WRITE DAT! 
THEN ALL REGISTERS ARE COMPARED TO CHECK FOR IMPROPER 
CHANGE, THEN WRITE FROM BUFFER IS CHECKED FOR NO CHANGE 


THEN READ INTO BUFFER IS FILLED WITH 200 IF ZEROS 
HRT eee BUFFER IS FILLED WITH 200 


0 
THE COMMAND EXCEPT GO IS LOADED, ALL REGISTERS ARE SAVED 


ee ee ee ee ee ee ee 


ee Oe ee Se ee OS St Oe SO ee OE Oe ee es ee ee ee ee 
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GU IS GIVEN 


ALL REGERTER ARE CHECKED 
READ DATA IS CHECKE 


> Segue +2: gua aaaaa a teagiececne mace maimammaaptaiasinceone wmeng mens: 
001900 MOV ¥STACK, SP ;RESET_STACK 
BiSrae 0000e6 004514 . Tv #26, JeTSTNM ;SAVE TEST NUMBER 


904737 O34SS6 JSR PC, J#CLDISK ;SET RI-RHCS1, fees RHCS2 
i RS-RHOS R4-RHER1 
:GIVE Riel INITIALIZE 
*SETUP UNIT NUBER 


*NOW FILL WRITE | FROM BUFFER-200 OF S2eS25 AND S6 OF 377 
034426 SSR RO, J#CLAREA ;CLEAR 200. WORDS FROM WRFROM 
WRFROM 3S TART ING FROM WRERO 
52525 FILL WITH S2eS25 


034426 JSR RO, J#CLAREA ; CLEAR Sb. HORDS FROM WRFROM+<200. ¥2> 
WRFROM+< 200. #2> ARTING FROM WRFROM+<200. *2> 


377 PILL WITH 377 


“4 
£ 
£ 


Free Bue 


02 
02 
02 
Oe 
02 
02 
02 
02 


;NOW READ INTO BUFFER WILL BE FILLED WITH SANE DATA AS 
sWRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS 
N BE MADE TO DETERMINE. THAT RITE DID_NOT CHANGE BUFFER 
034426 eR RO, J#CLAREA CLEAR 200. WORD FROM REINTO 
NTO STARTING FROM RELNT 


200. 
S2S25 {FILL WITH SeSe2S 


034426 JSR RO, J#CLAREA : CLEAR Sb. HoRDS FROM REINTO+<200. ¥2> 
REINTO+<200. 2) RTING FROM REINTO+<2M™. x2) 


2010 00 356. WO 
O2e0ie 377 :FILL WITH 377 


;NOW WRITE DATA COMMAND WILL BE LOADED 
022014 036532 JSR RO, J#RUN ;SETUP_TO RUN FOR DATA COMMAND 
000000 0 CYLINDER 0 


0 
0 —— FTRACK 0 

BUS COUNT = 200. 

; STARTING ADDRESS OF. DATA 
:B F WRFR 


E M 
000000 0 :D0 NOT Inet? BUS ROORESS INCREMENT 
019000 16 BITS PER WORD FORM 
. :D0 NOT I NIST Ecc SORRECTION 
:D0 NOT INHIBIT HEADER COMPARE 



























ee ett te 
DERPUB.P11 


eh, 022034 002354 


$679 Oeed4e 002210 
6680 Oee044 O04See 


82° o2204 00022 


6695 Oe206e 013746 002354 
pres 022066 052716 000101 


38 
6699 Oe207e Oleb77 160120 


670i 
6702 22076 011100 
6703 Oe2100 011305 










1614 
6711 Oeelle 001507 


6715 O22114 013746 002354 
6716 Oeeled 052716 OO4101 
717 Oeeled Olib3/ O011e4 


1405 
6721 Oeel34 010037 CO1l2e6 
6722 Oeel40 010137 004510 


67eS Oe2el46 Ole746 010500 
. 6726 OeelSe 011637 001124 
6727 Oe2lS& Oeeccs 
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6678 022036 O04037 O34T16 


84 
668S O22050 004737 034636 


- 6688 G2e0S4 013777 OO4SIE 
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WRIDAT “GET READY TO DO A WRIDAT 
WRITE DATA WITH 60 IN RHCS1 


- NOW SAVE REGISTER FOR COMPARISON AFTER WRITE DATA 
SSR RO, aaSAVER “SAVE REGISTER 

RHWC *RHWC IS THE FIRST REGISTER SAVED 
SAVERE ‘STARTING ADDRES OF WHERE 


; THE pe GtS TERS ARE tts 
18. ;NUMBER OF REGISTER 
SAVED = 18. 


JSR PC, J#CHECKT ;CHECK DVA,RDY,MOL,DPR, ORY, VV 


MOV DBRPYVEC ARPVEC ;SET RPOW VECTOR ADDRESS 
i} rot IF P-CLOCK IS PRESENT 
TO *TIME2’ IF P-CLOCK IS NOT PRESENT 
;°TIME’ WILL ONLY SAVE 
CURRENT CYLINDER ADDRESS 
AND LOOK AHEAD REGISTERS 


MOV @SWRIDAT,-(SP) ;GET READY TO MOVE COMMAND 
BIS _ #GO!TE, (SP) ;GET READY 0 SET GO AND . 
ENABLE INTERRUPT 
MOV (SP)+,dRHCS. ; WITH 
S1 FOR WRITE DATA 


IN RHC 
; ithe INTERRUPT ENABLED a 
MOV 3R1,RO SAVE RHCS1 DURING ABOVE OPERATION ( 
MOV JR3,RS ‘SAVE RHDS1 DURING ABOVE OPERATION 


;ONE REVOLUTION=16670 MICROSEC, ONE SECTOR=760 MICROSEC 


“Or 


WAT ;WAIT FOR RDY BIT TO SET 

RHCS1 ;WAIT FOR RHCS1 REGISTER 

RDY :WAIT FOR ROY BIT IN RHCS1 REGISTER 
908. SALLOW 9080 MICRO SECONDS 

839. :RDY on SET BET a 


690 AND 17470 MICRO SECONDS 
;COMPARE CONTENTS OF RHCSI WA cae ALREADY SAVED IN 


°RO AND RS IMMEDIATELY AF 

MOV JHWRIDAT ($B) CAVE COMMAND 

BTS HIE! GO!DUA, (S : INCLUDE TE?G02DVA 

MOV SP) SeScOBAT SHve FOR PRINTOUT 

CMP (SP)+,RO :DURING ABOVE OPERATION ONLY IE!GO!DVA 
OMMAND SHOULD BE SET 


AND C 
BEQ 64S *BRANCH IF GOOD 
MOV RO, J#SBDDAT BAD DATA 
MOV R1’ J#REGADR “FAILING REGISTER RHCSI 
ERROR 1 ‘DURING ABOVE OPERATION ONL 
*COMMAND AND IE! go! DVA SH ATH D BE SET 
64S: MOV #MOL! DPR! VV, -(SP3 VE weir S SET DURING OPERATION IN RHDS 
MOV (SP). d8SGDDAT SAVE FOR PRINTOUT 
CMP (SP)+,R5 s0UR ING aBOVE OPERATION ONLY MOL!DPR!VY 















1d ST etal 
DERPUB.P11 


234 
022236 
022240 


O2224e 
022244 


022246 


022264 
022266 


022270 
022270 





10833 001126 


atte 004510 


pong? 034460 
904937 034460 


004037 O34460 


004037 035546 


aati 036576 


104036 
000207 


004737 O34555 
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66$: 


1$: 


es: 


3$: 


4$: 


ae Se enpaT ‘Bo OA IF GOOD 
fey Ry, 08 , J#REGADR FALLING, REGISTER RHOS! 
ERROR NG ABOVE OPERATION ONLY 


tra DPR! VV SHOULD BE SET 


“NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 
5k RO, J#F ILLRE vO IN 10 Sp VED RHIC 
HWC ve EGISTER TO CHANGE 


0 :DATA 

JSR RO, J#F ILLRE :MOV_WRFROM+<200.%2> INTO SAVED RHBA 
HB ; SAVED or TO CHANGE 

5 ie 


DA 
RO, d#F ILLRE :MOV_1 INTO CAVED R HOST 
RHOST s SAVED REGISTER TO CHANGE 


;NOW COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS 
AFTER COMMAND 


JSR RO, J#COMREG tERESENT. AL te | REGISTERS WITH 


SAVERE GOOD DATA ASBVED IN *SAVERE’ 

We TEST DATA STARTING FROM an 
18. 318. REGISTERS TO BE COMPARED 
1$ ;RETURN TO 1$ ON 0 

es RETURN TO 2 ON NO ERROR 
ERROR 935 WRITE DATA ee. CAUSED 

RTS PC : IMPROPER REGISTER C 


HANGE 
GOOD DATA GIVES WHAT SHOULD 


RECEIVED DATA GIVES WHAT WAS 
THERE AFTER COMMAND 


;NOW WRITE FROM BUFFER WILL BE CHECKED FOR NO CHANGE 


JSR RO, J&COMPAR ;COMPARE TWO BLOCKS OF MEMORY 


REINTO GOOD DATA ____ STARTS FROM REINTO 
WRF ROM ‘TEST DATA STARTS FROM WRFROM 
256. 7 $256. WORDS TO BE COMPA 
fe :RETURN TO 3$ 0 
eae, ;RETURN TO 4§ ON NO ERROR 
ERROR 36 sWRITE DATA COMMAND CHANGED 
RTS PC ‘WRITE FROM BUFFER 


;NOW A READ DATA COMMAND WILL BE GIVEN 
;FILL READ INTO BUFFER WITH 200 ZEROS AND S6 OF ALL ONES 


JSR PC, J#CLDISK ;SET RI-RHCS1, Re-RHCS2 





A tag 
DERPUB. P 


022360 
022362 
022364 
022366 
022372 
022374 
022376 
022400 


022404 


Teé 


004037 
003444 
00310 
00000 


004037 
004264 
000970 


004037 
002400 
000310 
052525 
004037 
003220 
00007 
0003 


004037 
000080 
000 


000 
77470 
3444 


000000 
014000 


002360 
004037 
002210 
004522 
o0002e 
004737 


013777 
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034426 ISR RO, J#CLAREA 
REINTO 
g00. 

034426 JSR RO, J#CLAREA 
REINTO+< 200. ¥2) 
377 


iFILL WRITE FROM BUFFER 


:R3-RHOSI R4-RHER1 
IVE orth INITIALIZE 


Bae ae WORDS FROM REINTO 
eT ERT ING FROM REINT 


;200. WORDS 
FILL WITH O 


: CLEAR Sb. HoRDS FROM REINTO+<200. #2> 
RTING FROM REINTO+<200. ¥2> 


;56. 
FILL WITH 377 


WITH 200 OF SeS25 AND S56 OF 0 


034426 SSR RO, J#CLAREA -CLEAR 200. WORDS, FROM WRFROM 
WRFROM $ START Ie FROM WREROM 
52525 FILL WITH S2525 
034426 JSR RO, J#CLAREA : CLEAR 5b. HoRos FROM WRFROM+<200. *2> 
WRFROM+<200. ¥2> TING FROM WRFROM+< 200. *2> 
f 56. worde 
377 FILL WITH 377 
:NOW FILL COMMAND 
036532 ISR RO, J#RUN ;SETUP_TO RUN FOR DATA COMMAND 
0 “CYLINDER O 
.BYTE SECTOR O 
“BYTE 0 TRACK 0 
 =200. sHORD COUNT = 200. 
REINTO SA 
i STARTING ADDRESS OF DATA 
‘BUFFER = REI 
0 D0 NOT INHIBIT BUS ADDRESS INCREMENT 
ECI!FMT22 16 BITS PER WORD FORMAT 
; INHIBIT’ ECC CORRECTION 
:D0 NOT INHIBIT HEADER COMPARE 
READAT “GET READY TO DO A READAT 
;READ DATA WITH 70 IN RHCS1 
“NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND 
034716 5sR RO, J#SAVER ;SAV 
| RHWC WC IS THE FIRST REGISTER SAVED 
SAVERE ; STARTING ADDRES OF WHERE 
THE REGISTERS ARE SAVED 
18. NUMBER OF REGISTERS 
: SAV ED = 18. 
034636 JSR PC, JHCHECKT ;CHECK DVA,RDY,MOL,DPR, DRY, VV 
004516 157572 MOV SBRPYVEC, IRPVEC ;SET RPOY VECTOR ADDRESS 


Real 


Deesse 


6 


001405 
019037 
010137 


012746 
011637 
022605 


001405 


000001 
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002360 
000101 


157570 


002360 
004101 
001124 


001126: 


004510 


010500 
001124 


001126 
004510 


034460 


034460 


034460 


67S: 


69S: 


;T0 tie IF P-CLOCK IS PRESENT 
98 ae IF A eee IS NOT PRESENT 


CURRENT CYLINDER ADDRESS 
AND LOOK AHEAD REGISTERS 


MOV D¥READAT,-(SP) ;GET READY TO MOVE gonmano 
BIS #GO!TE, (SP) GET READY TO SET GO AND 
‘ENABLE INTERRUPT 
MOV (SP)+, IRHCS1 300, ITH 
RHCS1 FOR READ DATA 
ITH INTERRUPT 


MOV dR1,RO SAVE RHCS1 DURING ABOVE OPERATION 
MOV aR2,RS ;SAVE RHDS1 DURING ABOVE OPERATION 
WAT ;WAIT FOR ROY BIT TO SET 

RHCS1 ;WAIT FOR RHCS1 REGISTER 

RDY WAIT FOR ROY BIT IN RHCS1 REGISTER 
908. _.*  $ALLOW $080 MICRO SECONDS 

839. ;RDY MUST SET 


BETWEE 
AND 17470 MICRO SECONDS. 
;COMPARE CONTENTS OF RHCSI ieee ALREADY SAVED IN 


*RO AND RS IMMEDIATELY AFT 
Mov D#READAT, -(SP) E COMMAND 
BIS #IE'GO'DVA, (SP) : INCLUDE IE'GO!DVA 
MOV (SP), J#SGDDAT R PRINTOUT 
CMP (SP)+,RO :DURING ABOVE OPERATION ONLY IE!GO!DVA 
as “AND COMMAND SHOULD BE SET 
BEQ =. «67S ;BRA NCH IF GOOD 
MOV RO, J#SBDDAT :BA 


MOV Ri, J#REGADR FAILING REGISTER ween 


ERROR 21° : DU URING ABOVE OPERATION ONLY 
BNO. TEGO! OVA SHOULD BE_SET 
MOV anoc OPR!VV, -(SP3 BITS SET DURING OPERATION IN RHDS! 
MOV (SP). a8SGDDAT  ;SAVE none PRINTOUT 
CMP (3p)4 RE :DURING ABOVE OPERATION ONLY MOL!DPR! VV 
‘SHOULD BE SET 
BEQ 69$ ; BRANCH IF GOOD 
MOV RS, J#SBDDAT TA 


MOV R3, J#REGADR FAILING REGISTER RHDS1 
ERROR 63 ;DURING ABOVE OPERATION ONLY 
MOL! DPR: WV SHOULD BE SET 


: CHANGE SAVED REGISTERS TO EXPECTED VALUES 
Js R 0, J#F ILLRE :MOV 0 INTO SAVED RHWC 
; SAVED REGISTER TO CHANGE 


A ;DA 

JSR - RO,d#FILLRE ;MOV_REINTO+<200.%2> INTO SAVED RHBA 
R ; SAVED REGISTER TO CHANGE 

REA Ot Eoee . ¥2> 


DATA 
RO, J#F ILLRE :MOV 1 rir SAVED RHDST 
 SaVED REGISTER TO CHANGE 


MAINDEC-11-DERPU-B 
DERP 


UB.P11 


022614 
022616 
022620 


Te6 


004037 035546 


104033 
000207 


7 ‘poyoa7 


022620 


104034 
000207 
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;COMPARE REGISTERS BEFORE READ DATA COMMAND 
;WITH REGISTERS AFTER COMMAND 


JSR RO, d&#COMREG OR OCENT “VALUE REGISTERS WiTH 


SAVERE GOOD DATA SAVED IN 'SAVERE’ 
WC TEST DATA STARTING FROM ’RHWC’ 


18. 518. REGISTERS Lf 3 ete: 
Pe i RETURN TO ?e oN ER 
RETURN TO N fio. RROR 
S$: ERROR 33 ;READ DATA CAUSED IMPROPER 
RTS PC ;REGISTER 


CHANGE 
:GO0D DATA GIVES WHAT SHOULD BE THE 
RECEIVED DATA GIVES WHAT WAS THERE 
SAFTER COM MAND 


;NOW READ INTO BUFFER IS CHECKED FOR GOOD READ 


65: 
JSR RO, J#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 
WRF ROM : GOOD ATA TARTS FROM ree 
REINTO : TEST DATA STARTS FROM REINTO 
eSé. 5256. WORDS TO - COMPARED 
7$ TURN TO 7 0 
10$ :RETURN TO 10$ NN NO ERROR 
7$: ERROR 34 ; INCORRECT DATA AFTER 
RTS PC : WRITE DATA FOLLOWED BY A 
08 : READ DATA 


5 EX KKKAKK RARER REE A AERA EK EEE ERLE AEA AA AAR ERA R ERE R EERE EERE RES 
;*TEST 27 WRITE/READ DATA USING UNIBUS B 


rs ka USES UNISUS B IF et Ss TO_THE R 


a IS NOT CONNECTED THEN THIS TEST TS NOT_ PERFORMED 
THIS TEST GIVES A WRITE DATA COM oroS “orroses25 0 


US DATA 
WRITE FROM 25, AND gO pa ERO INTO BUFFER ARE FILLED WITH . -— 
THE WRITE DATA COMMAND IS “Coane EXCEPT GO AND IE 
ALL REGISTERS ARE SAVED AND THEN GO IS GIVEN TO WRITE DATA 


THEN ALL REGISTERS ARE COMPARED TO CHECK FOR IMPROPER 
CHANGE, THEN WRITE FROM BUFFER IS CHECKED FOR NO CHANGE 


DRE RC CR RC DC Re CK DC oi KK Dic ic 
_" 
Irprrwaxrs 
mM 2Me4D 
WMZNOWC 
m 
2 
=) 
= 
PS) 
= 
o 
ur 
“ey 
ge 
= 
waa 
Ae 
a 
o 
=) 
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DERPUB. Pi! Te? WRITE READ DATA USING UNI8US B 
3$3 38 

$35 i THEN READ INTO BUFFER IS FILLED WITH 200 IF ZEROS - 
£S5s :% AND S& ALL ONES, WRITE FROM SUFFER IS FILLED WITH 200 
5355 :* WORDS OF S2Ses AND 56 WORDS OF 9 
£35* ie THE COMMAND EXCEPT GO IS LOADED, ALL REGISTERS ARE SAVED 
=sss 37# 60 IS GIVEN 
esos :* 
e360 :* 
5351 :+ ALL oPESISTE ARE CHECKED 
52> :* READ DSTA IS CHECKED f 
rae5 . SW oe eieeeeper operas: . 
E565 O22629 900004 S727: §¢0 
Egeg fSsese OiS"67 000001 156360 “Sy aL, STINES 1400.1 ITERATION 
es6> 523630 Siivds § 501508 may as tack SF STA 
ee Bezeas Biers? 80002" oces14 may 7, 58?STNM sags TEST NUMBER 
s3e3 
£375 D22k42 OOMTET OG4ESE JSR PC, JeCLDISK :SET RI-RHCS1, R2-RMCS2 
ee ity ER! ty wie 1ZE 
ee i TEE 70e on Nit * iaBee 
£875 OS2E46 OOO1ET O0107E IMP TST30__ ; JUMP TO'NEXT TES 
BS75 SdeesSe 555037 oo4b4e CLR aaubuse : CLEAR cereus INDI SATOR 
sss 
eg | “NOW FILL WRITE FROM SUFFER-200 OF S2S25 AND S& OF 377 
S578 O22656 OO4037 O34426 $sR RC, a8CLARES :CLEAR 200. WORDS, FROM WRFROM 
£373 922662 902400 WAFROM : STARTING FROM WREROM 
69e0 G52664 959310 20 :200. 
ee ar) 552525 52525 FILL WITH 52525 
6983 22670 O04037 O24426 ISR RO, DaCLAREA ;CLEAR S6. WORDS, FROM WRFROM+< 200. 42> 
£584 922674 603220 WRFEROM+< 204. #2 -STARTING FROM WREROM+< 200. #2) 
6985 Secs7e 960070 56. 56. WOR 
b3e 622700 900377 377 FILL WITH 377 
£36¢ 
£335 sNOW.READ INTO BUFFER WIL BE FILLED WITH SANE DATA AS 
£359 :WRITE FROM BUFFER SO THAT AFTER A URITE cONFE RISONS 
£96] “CAN BE MADE TO DETERMINE THAT WRITE OIC CHANGE SUFFER 
6992 O22702 O04037 O34426 SSR RO, J8CLAREA “CLEAR 200. WORDS. oF Ron REINTO 
£993 Ass7oE Has444 REINTO : STARTING FROM REENTO 
6694 922719 900310 200. ORDS 
oa Oee7l2 os2525 52525 FILL WITH 52525 
6987 922714 004037 O34426 JSR RO. JeCLAREA : CLEAR so. Hons FROM REINTO+<209. #2) 
£998 922720 904264 REINTO+< 200, #2 TING FROM REINTO+<300. 42> 
539° 622722 900970 cE. ne 56. WOR ie 
7996 G22724 000377 7 377 7 FILL WITH 377 
7053 
7993 :NOW WRITE DATA COMMAND WILL BE LOADED 
7095 Oze72& 004037 O36522 ISR RO, J8RUN sSETUP TO RUN FOR DATA COMMAND 

| 3006 Oee7se oco050 0 SCYLINDER 0 
7007 Oee734 906 BYTE “SECTOR O 

onte fes7as aD ‘BYTE TRACK O 

L 





BddGdacac 


i> 3~ ih 


- | a bee ie 
fuses 
4 UT LD + 0+ & <0 0 9-0-2 9 op 
—O00D IOUl £63 


oe) at 


ify) 


MAINOEC- 14 -OERPULS 
DERPUS.Pil Te? 


0227 
O22? 40 


22742 
BES°49 


022746 


022750 


023002 
023906 


023012 


000008 157240 


JSR PC, d8CHECKT ;CHECK DVA,RDOY,MOL,OPR, ORY, VV 


MOV JBRPYVEC , IRPVEC s36T RPO4 VECTOR ADDRESS 


MOV DaWRIDAT = (SP), ,3GE7 READY TO alive COMMAND 
gts BGO'IE'PSEL, GET READY 


MOV (SP)+,9RHCS! 30 WITH 


MOV aR1,RO SAVE FaCS1 DURING ABOVE OPERATION 
MOV ARS, RS SAVE RHOS1 DURING ABOVE OPERATION 


WAT ;WAIT FOR ROY BIT TO SET 


RHCS1 sWAdT poe RHCS1 REGISTER 

ROY WAIT FOR ROY BIT IN RHCS1 REGISTER 
908. FLO 960 MICRO SECONDS 

839. sROY T SET 


RO A 
hoy DaWRIDAT,-(SP) ;SAVE C 
BIS 











-200. yg ofoeree = 200. 
WRF ROM 
ierestiNe aoppess OF DATA 
,. ; i Nor INH Sih Paps, ADORESS INCREMENT 
MT2e BITS PE RMAT : 
' Q NOT rniterT ECC CORRECTION 
iD NOT INHISIT HEADER COMPARE 
WRIDAT “GET READY TO DO A _WRIDAT 


sWRITE DATA WITH 69 IN RHCS1 





81S SPSEL,JRHCS! ;SET PORT 8 
;THAT IS UNIBUS B 


yNOW SAVE REGISTER FOR ee ee AFTER WRITE DATA 







SF RO, asSAVES 3A VE REGISTERS 
RHWC IS THE FIRST REGISTER SAVED 
SAVERE STARTING ADDRES OF WHERE 












; REGIST 
18. ;NUMBER OF REGISTERS 
SAVED = 18. 












TQ *TIMEL” IF P-CLOCK IS PRESENT 
OR TO "TIME2’ IF P-CLOCK IS NOT PRESENT 
>’ TIME’ WILL ONLY SAV ve 
:CURRENT CYLINDER ADDRESS 
SAND LOOK AHEAD REGISTERS 












;SET PORT SELECT BIT 





TQ SET GO AND . 





3£ NABLE INTERRUPT 





0 IN RHCS1 FOR WRITE DATA 
shTTH INTERRUPT ENABLED 








;ONE REVOLUTION=16670 MICROSEC, ONE SECTOR=760 MICROSEC 










N 
ANS 17470 MICRO SECONDS” 
4 yey CONTENTS OF ack! AND RHDS1 ALREADY SAVED IN 
ND RS MINE DIATELY AFTER GO 


COMMAND 
BIE!GO!OVA!PSEL, (SP) ;INCLUDE IE!GO!DVA!PSEL 








MAINDEC-11-DERPU-8 
DERPUS.Pil Te? 


7085 923044 011637 
re 023050 022600 


7075 0230768 260s 
ive 

z 023190 901405 
7Crs «O23! 010837 
7079 0231068 010337 
7080 Qe3lle 104063 
7O8l 

7082 023114 

7083 

7084 

708s 

7086 

7087 

7988 


0 
7097 104400 
009137 
Oe3230 104400 
023234 000424 


ages 

BB 

Bae 
8 


Oe 104400 
O233i2 104400 


NNNNNNNNINN NSN SNS 
fUr-tatseat tae bb = DO OOOOOO00 
(hot VOUT wre OD NO EWE 

Let) 

eu 

rm 

iat) 

oO 

io | 

mM 

tT 

— 

| = | 


MACYL1 


001124 


001126 
004519 


004000 


177777 
023140 


O0i221 
001221 
023759 


023236 
001221 
001221 
O34460 
034460 


s4460 


2773 
WRITE/READ D 


2) 
AT 


1S707e 


C0442 | 
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A USING UNIBUS B 
MOV 1 AT meaatd ;SAVE FOR PRINTOUT 
CMP ($P)+,R0 s DURING ABOVE OPERATION ON. IE!GO!DVALPSEL 
;AND COMMAND SHOULD BE SET 
BEQ b4$ ; BRANCH IF 0 
- MOV - RO. g#SEQ08T DATA 
MOV R° eREGHOR FAILING REGISTER RHCS1 
‘ERROR = DURING ABOVE OPERAT I 


b4$: Mov ert 10PR1 YY 2 (SPS 


ON ONL 
BND TE!GO!DVA!PSEL "sHou LO BE SET 
aot oiTe SET DURING OPERATION IN RHOS1 


MOV 3-4 28360 ;SAVE FOR PRINTOUT 

CMP (5P 34, R5 Shout B Re oer ONLY MOL!DPRE VV 
SEQ 6&$ ; BRANCH GO00D 

MOV RS, J8SBODAT ATA 


8) 
MOV R3, J#REGADR FAILING REGISTER RHOS1 
ERROR 6&3 DURING ABOVE OPERATION ONLY 


S&S: 


:MOL!DPR!VV SHOULD BE SET 


;CHECK_IF_NEM NON EXISTANT MEMORY IS SET 


IF SET I 


:S0 THIS 
BIT 


T MEANS UNISUS 4 IS_NOT CONNECTED 
igs! IS NOT PERFORMED 
#NEM, JRHCS2 : 


ST NEM 
EQ Ii ;BRANCH IF UNTBUS THERE 


MOV #-1, J8UBUSB ;UNIBUS 8 NOT 
TYPE 


+4 35 LYPE ASCIZ STRING 


3 7§ “GET OVER THE ASCIZ 
:+.ASCIZ (15> <12>/THE RH DOES NOT HAVE UNI BUS B CONNECTED- 


&7$: 
TYPE  ,SCRLF 
TYPE  ‘SCRLF 
-. IMP delO$ ; JUMP TO NEXT TEST - NO UNIBUS 8 
. TYPE +4 33 TYPE ASCIZ STRING 
BR 8g ET OVER THE ASCIZ 
"ew! >:.ASCIZ (15><12>/THE RH DOES HAVE UNI BUS @ CONNECTED, 
; TYPE ,SCRLF 
TYPE  ‘'SCRLF 
+ NOW:-CHANGE SAVED REGISTERS TO EXPECTED VALUE 
SSR RO, WF ILLRE sMOV.0 INTO SAVED RHWC 
RHWC i SAVED REGISTER TO CHANGE 
ISR RO, J8F ILLRE Roy WRFROM+<200.%2> INTO SAVED RHBA 
H : SAVED REGISTER TO CHANGE 
WRFROM+< 200. *2> 
JSR RO, J#F ILLRE sMOV 1 ito. SAVED RHDST 
RHOST : Saved REGISTER TO CHANGE 


;NOW COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS 
SAFTER COMMAND 









~~ 
rw 
o-- 


I I ee ed et ee eo 
Witrbstati pt at iitet ett tet tt wet 








MAINDEC-11-DERPU-B 
DERPUS.P11 


023346 


aeeieg 


023256 
023360 
023362 


023364 
023386 


Te? 
004037 


104074 
000207 


etd 
OO3444 
0024 


104075 
000207 


004737 


004037 
002400 
000310 
CSeS2s 





035546 


036576 


034556 


034426 


034426 


034426 
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3s: 
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JSR RO, J#COMREG pt a ly REGISTERS WITH 





SAVERE H } N "SAVER 
ie fe : th "SRR AL a auc’ 
18. 318. REGISTERS TO Ee COMPAR 
1$ ; RETURN 13 1$ ON ERROR 
2$ RETURN TO 2$ ON NO ERROR 
ERROR 74 s WHILE USING UNIBUS B 
WRITS DATA COMMAND CAUSED 
RTS PC STNPROPER REGISTER CHANGE 


R 
; GOOD DATA GIVES WHAT SHOULD 


ik CEIVED DATA os WHAT WAS 
;THERE AFTER COMMAN 


:NOW WRITE FROM BUFFER WILL BE CHECKED FOR NO CHANGE 







JSR RO, J8COMPAR ;COMPARE TWO BLOCKS OF MEMORY 

REINTO :G00D pe ATA STARTS FROM REINTO 
WRF ROM ;TEST DATA STARTS FROM WRFROM 

eS. 325 OS_TO BE COMPARED 










3$ ON ERROR 
4$ RETURN TO 4S ON NO ERROR 





ERROR 75 ;WHILE USING UNIBUS B 
;WRITE DATA COMMAND CHANGED 
RTS PC WRITE FROM BUFFER 







;NOW A READ DATA COMMAND WILL BE GIVEN 
;FILL READ INTO BUFFER WITH 200 ZEROS AND S& OF ALL ONES 













ISR PC, J¥CLDISK :SET Ri-RHCS1 R2-RHCS2 
=R3-RHDS1, R4Y-RHERL 
GIVE RH-{1 INITIALIZE 


ise TUB UN UNIT NUBER 
JSR RO, J¥CLAREA 200. WORDS FROM REINTO 
REINTO s STARTING FROM REINTO 


seg0, He WITH O 


JSR RO, JUCLAREA ;CLEAR S&. WORDS, FROM REINTO+<200. #2> 
BEINTO+< 200. #2) TARTING FROM REINTO+< 200. #2> 










377 “FILL WITH 377 

‘FILL WRITE FROM BUFFER WITH 200 OF S2525 AND S& OF 0 
SSR RO, JaCLARE= ;CLEAR 200. WORDS, FROM WRFSOM 
WRFROM ; STARTING FROM WREROM 

20 WORD 

S2se5 EOP WITH 52525 









O234S4 


9 op 


023464 


LALARAAARRARRE AAA, 

Et twat iitet ei itipetiattip dat cited oats 
fo 
2 
s 





023530 


023534 


wane et te 
DERP 


Te? 
004037 


pa86%0 


000377 
004037 
000000 

900 

000 
177470 
003444 
600009 


014000 


002360 


052777 
094037 


000022 
004737 


013777 


013746 
052716 


012677 


011100 
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034426 ISR RO, J¥CLAREA : CLEAR 5. +HoRos FROM WRFEOM+< 200. *#2> 
YRFRON+< 200. #2) ee" TING FROM WRFROM+<200. *2> ¥ 
377 PILL WITH 377 I 
f. \ 
. AN 
;NOW FILL COMMAND c ‘ 
036532 JSR RO, J8RUN s SETUP TO RUN FOR DATA COMMAND 
0 CYLINDER 0 “a 
-BYTE 0 SECTOR 0 f 
[BYTE 9 ; TRACK 0 | 
-200. WORD COUNT = 200. : 
REINTO BUS ADDRESS : ¥ 
STARTING ADDRESS OF DATA “r.> 
‘BUFFER = REINTO ey | 
9 DO NOT INATBIT BUS ADDRESS INCREMENT \ 
ECI!FMT2e -16 BITS PER WORD FORMAT an 


sINMIBIT ECC CORRECTION 
300 _N T INHIBIT HEADER COMPARE 
- READAT : GET REARY TB DO READAT 
sREAD DATA WITH 70 IN RHCS1 











coocoo §=156500 | BIS #PSEL, JRHCS1 ;SET_PORT B 
’ ; ; THAT IS UNIBUS B 













:NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND 
034716 $SR RO, a8SAVER sSAVE REGISTERS: 
RHWC :RHWC IS THE FIRST REGISTER SAVED 
SAVERE SSTARTING ADDRES OF WHERE - 
-THE REGISTERS ARE SAVED 
18. !NUMBER OF REGISTERS 
‘SAVED = 18. CS 





C34636 JSR PC, J&CHECKT ; CHECK DVA,RDY, MOL, DPR, DRY, VV 






OO4S16 156442 MOV @8RPYVEC,ARPVEC . sSbT RPOY VECTOR ADDRESS 
5S me IF oF ee IS PRESENT 
08 , TIMEe’ i? cao IS NOT PRESENT 


ILL ONLY SA 
sCURENT CYLINDER ADDRESS 
AND” et AHEAD REGISTERS 







;SET PORT SELECT 


002360 MOV JBREADAT = (SP), 366 READY TO MOVE COMMAND 
000101 BIS HGO'TE!PSEL, (S CET REA bY TO SET GO AND 
: ENABLE | tNTERRUP 
156440 MOV (SP)+, IRHCS1 360 WITH 
RHCS1 FOR READ DATA 


IN 
AITH INTERRUPT ENABLED 
;SAVE RHCS1 DURING ABOVE OPERATION 










MOV 3R1,RO - 













ET rus 
RPUB.P 





233 023560 011305 
34 


cm BIH ARP 
? = 000206 


023570 001614 
001507 














913746 002360 
0S27 














023654 CO4037 O34460 












0236 
023664 004037 O344E0 
023670 O0eele 





023674 004037 034460 
023700 02222 
000001 





023704 004037 035546 


023710 o045S2e 
Oe371le O022b5 
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023632 011637 124 
023636 

023640 001405 

Oesb4e 010537 001126 
023646 010337 004510 
023652 104063 


69$: 


Ss: 
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MOV 


76 
:COMPARE CONTENTS OF RHCSI 
5RO AND RS IMMEDIATELY AFTER 


1s R. 


A 
JSR 


;COMPARE REGISTERS BEFORE READ DATA COMMAND 
WITH REGISTERS AFTER COMMAND 


RO, J#COMREG 


JSR 


R3,RS 


SAVE RHDSI DURING ABOVE OPERATION 





| HIRE FE Pill fe 


N RHCS1 REGISTER 
rALLOW 3080. MICRO ac CONDS 
ROY MUST SET BETWEEN 
90 AND 17470 MICRO SECONDS 
1 AND RHOSI ALREADY SAVED IN 


JBREADAT, -(SP) OMMAND 
ble "Co: DUatPs PSEL, tSp) j INCLUDE IE!GO!DVA!PSEL 
SP) daSGDDAT AVE FOR P 


(SP)4+,R 
69S 

RO, J#SBDDAT 

R1’ a#REGADR 

21 

#MOL! PRIVY -(SP} 
(SP) wSGDDRT 
(SP) 4°R 

71S 

RS, J8SBODAT 


R3, J#REGADR 
63’ 


RO, J#FILLRE 


RE INTO+<200. ¥2> 
JSR -—-RO, dF ILLRE 


; RETURN ROR 
RETURN TO 6$ ON NO ERROR 


;WHILE USING UNIBUS B 
sREAD DATA CAUSED IMPROPER 


72 


:D 
;MOV_REINTO+<200.%2> INTO SAVED RHBA 
:SAVED REGISTER TO CHANGE 


 SaVED REGISTER TO CHANGE 


tC OECENT ¢ SAVED REGISTERS WITH 


: GOOD DATA SAVED IN *SAVERE’ 
TEST DATA STARTING FROM ‘RHWC’ 
318. REGISTERS TO BE COMPARED 


;DURI NG ABOVE OPERATION ONLY IE!GO!DVA!PSEL 
COMMAND SHOULD BE SET 


* BRANCH 

BAD DATA 

: FAILING REGISTER RHCS! 
DURING ABOVE OPERA 


hee ONLY 
COMMAND AND IE!GO!DVA!PSEL SHOULD BE SET 
; SAVE eat SET DURING OPERATION IN RHDS1: 


; SAVE FOR PRINT 
# DURING REOVE OPERATION ONLY MOL!DPR! VV 


* BRANCH IF GOOD 
:BAD DATA 
FAILING REGISTER RHDS1 


;DURING ABOVE OPERATION ONLY 
;MOL! waachd SHOULD BE SET 


; CHANGE SAVED. cor tte TO EXPECTED VALUES 


OV O INTO SAVED RHWC 
;SAVED REGISTER TO CHANGE 


“DATA 
1 INTO SAVED RHDST 





TQ S$ ON ER 





hh 
, 
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MAINDEC-11-DERPU-8 
DERPUB. USING UNISUS B 


cee Oes72e4 000207 


heh-5-5-5-i-+-talelalalalalal-tt-tal-t-t-tah-1-5+-4-telalalalalallelelelalalalalaiabelelalaialaiaiaiielelaiaialaleie 
TEST 30 IMPLIED SEARCH 


ee ee ee ee ee ee ee ee ee 


Oe OS Se SS OF SS SESS SE SE SE SS SF SESS SESE S88 ee ee ee ae ee we 











RTS PC 





pe Sear FAY RS. THERE 


;NOW READ INTO BUFFER IS CHECKED FOR GOOD READ 








PBB ann RO, d#COMPAR OOD BATA TWO meat 30s i GH URFROM 






REINTO ; TEST DATA STARTS FROM REINT 
eSé. 255. WORDS TO BE COMPARED 
7$ RETURN TO 7$ ON ERROR 

10$ RETURN TO 10$ ON NO ERROR 












ERROR 73 ;WHILE USING UNIBUS 8 
INCORRECT DATA AFTER 

RTS PC ;WRITE DATA FOLLOWED BY A 
;READ DATA 











ONLY NEW ADDITION IN THIS TEST IS AN IMPLIED SEARCH 
B Pn u% HEADER AND DATA IS GIVEN FOR MORE THAN ONE SECTOR 


ORITE HEADER AND DATA CYLINDER 0 FORMAT 16 BITS PER WORD 
TRACK 0, SECTOR O, KEYS=0, NUMBER OF WORDS 
266 (4 HEADER 256 DATA=0 HEADER 2 DATR=I 
THEN READ HEADER AND DATA FOR ABOVE SECTOR 1 ONLY 
WRITE FROM BUFFER AND READ INTO BUFFER ARE FILLED WITH 
10000,0,0,0 AND 256 OF 0, 19000, 1,0,0, 2 OF 1 
THE WRITE’ COMMAND IS THEN LO RDED- INTO’ THE REGISTERS EXCEPT 
THE GO BIT, AND ALL THE REGISTERS ARE SAVED 
THEN GO IS GIVEN FOR WRITE HEADER AND DATA 


THEN ALL_ REGISTERS ARE COMPARED TO CHECK FOR IMPROPER CHANGE 
THEN WRITE FROM BUFFER IS CHECKED TO SEE THAT NOTHING CHANGED 


NOW FOR THE READ COMMAND READ INTO UFFER IS FILLED, 

WITH 377, WRITE FROM BUFFER IS FILLED WITH 10000. 1 

AND 254 OF ZEROS COMMAND IS LOADED INTO REGISTERS 1 eeet 
GO AND IE THEN ALL REGISTERS ARE SAVED 

GO IS GIVEN FOR THE READ COMMAND, 256 WORDS 


ALL REGISTERS ARE CHECKED FOR IMPROPER CHANGE 
THEN THE READ DATA IS COMPARED 









sad ‘ioe 
DERPUB.P 


ll 


T30 


000004 
Bi8e8? 


004737 


late 


024070 
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ne ee ce ee ee 


BRABS8  oowsi4 MOV oso Saternm «=| ESBVE' TEST NUMBER 


034556 «JSR PC, J#CLDISK ;SET RI-RHCS1, fees RHCS2 
:R3-RHDS 1 1 
:GIVE oe INTTTALIZE 
; SETUP UNIT NUBER 


;FILL WRITE FROM BUFFER WITH HEADER 
034402 JSR RO, J#FLHEAD ; SAVE HEADER DATA IN WRFROM 
WRF ROM VED 


10000 
0 


0 \ 
0 : FOURTH DATA WORD 


*FILL WRITE FRON BUFFER WITH DAT 
034426 $5R RO, J#CLAREA : CLEAR 36, WORDS, FROM WRFROM+10 
WRFROM+10 -STARTING FROM WRFROM+10 
256. :256. WORDS 
FILL WITH O 


;FILL WRITE FROM BUFFER WITH NEXT SECTOR HEADER 


034402 JSR RO, J#FLHEAD sSAVE HEADER DATA IN WRFROM+< 260. x2) 
_WRFROM+< 260. #2) WHERE SAVED 


10000 
g | 


0 W 
0 t FOURTH DATA WORD 


“FILL WRITE FROM BUFFER WITH NEXT SECTOR DAT 
#CLAREA sCLEAR 2 WORDS FROM A URFRON#<264. ¥2) 

WRFROM+<264, #2) 

2 :2 woros*” 


034426 
} RTING FROM WRFROM+< 264. *2> 
I SFILL WITH 1 


;NOW READ INTO BUFFER na BE FILLED WITH SAME DATA 
sAS WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS 
CAN BE MADE TO MAKE SURE THAT WRITE DID NOT 

;CHANGE WRITE FROM BUFFER. 


034402 JSR RO, J#FLHEAD ;SAVE_HEADER DATA IN REINTO 


REINTO sh OCATION WHERE SAVED 
4 NUMBER OF WORDS SAVED 
p00 DATA WOR 


iE 
0 THIRD DATA WORD 
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000000 ;FOURTH DATA WORD 
004037 034426 i d#CLAREA ;CLEAR 256. WORDS, FROM REINTO+10 


ett Brod 256, uoaRLPRTING FROM REITO* 0 


oo0090 ri {FILL WITH O 


se 7 o34402 ISR RO, JYFLHEAD ;SAVE HEADER DATA IN REINTO+<260. *2> 
f INTO+< 260. ¥2> *LOCATION WHERE SAVED 


; NUMBER dF WORDS SAV 
10000 WORD 


0 
HEOURTH DATA WORD 

ISR RO,d#CLAREA ~~ :CLEAR e WORDS FROM REINTO+<264. ¥2> 

REINTO+<264. 2) TARTING FROM REINTO+<264. *2> 


‘2 WOR 
000001 1 ;FILL ian 1 
;NOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 
004037 036532 JSR RO, J#RUN ;SETUP TO RUN FOR DSTA COMMAND 
4) 0 CYLINDER 0 


i ; 

0 : TRACK g ; 

-262.-4 ;WORD COUNT (DA 8)=262.+ 
:4 HEADER W 


WRFROM ;BUS ADDR Ess 

Dyan oe OF DATA 

0 :00 NOT INHIBIT BUS FOOSESS INCREMENT 
FMT2e 316 BITS a wor D FORMAT 


30 NOT INHIBIT oe 
WRIFOR ;GET READY TO DO A WRIFOR 
;WRITE HEADER AND DATA WITH 62 IN RHCS1 


0 0 0 6 bo ho bo pe he 
(OW VOUT torus Dew 


Het} 


74 
74 
74 
74 
74 
74 
74 
oy 
74 
74 
74 
74 
74 


7422 
23 
7424 
eb 


iNOW SAVE REGISTERS FOR COMPARISON aren WRITE HEADER AND DAT1 
004037 JSR RO, J#SAVER ;SAVE REGISTER 
092210 RHWC sRHWC_IS THE FIRST aS SAVED 
004See SAVERE ; STARTING ADDRES OF WHERE 
THE REGISTERS ARE SAVED 
024172 000022 18. :NUPGER © eelsien S 


024174 004737 034636 JSR -PC,a"CHECKT — ; CHECK DVA@®RDY,MOL,DPR, DRY, VV 


024200 013777 OO4S16 155776 MO HRPYVEC, IRPVEC ; soeT RPOW VECTOR ADDRESS 
310 'TIMEL’ IF P-CLOCK IS PRESENT 
ie 98 TO + ant cody IF a ae IS NOT PRESENT 
: CURRENT CYLINDER ADORESS 
;AND LOOK AHEAD REGISTERS 
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024206 
024212 


024216 
O24e2e 
Oe42e4 
024226 
024230 
024232 


024234 
024236 


024350 





T30 


004037 
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002356 
009101 


155774 


002356 
004101 
001124 


034460 


034460 


035546 
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iE a + TO Oe ane 
Eieat INTERROPT 
MIN W RACE FOR Baer TE HEADER AND DATA 


"if H INTERRUP 
MOV aR, RO “SAVE RHCS1 DURING ABOVE OPERATION 
:SAVE RHDS1 DURING ABOVE OPERATION 


MOV dR3 
; ONE REVOLUTION = = 16670 MICRO SEC, ONE SECTOR = 760 MICPO SEC 
;WAIT FOR RDY BIT TO SET 





MOV JBWRIFOR, -(SP) 
BIS #GO'TE, (SP) 


MOV (SP)+, IRHCS1 













RHCSI ;WAIT FOR RHCS1 REGISTER 

RDY ;WAIT FOR RDY Pir IN ae e REGISTER 
102S. ‘ALLOW 10250 MICRO SECO 

875. :RDY MUST WEEN 








SET BETWEEN 
31500 AND 19000 MICRO SECONDS 
; COMPARE CONTENTS OF RHCoI AND RHDS1 ALREADY SAVED IN 
jRO AND 0D ie i ead AFTER GO 


VE COMMAND 
BTS ote dos BA (SP) INCLUDE IE!GO! vA 
MOV (SP). a8SGDDAT ; SAVE FOR PRINTOUT 
CMP (SP)+,RO URING ABOVE OPERATION ONLY IE!GO!DVA 
SAND COMMAND SHOULD BE SET 








arr 
















BEQ BMS ;BRANCH IF GOOD 
MOV RO, J#SBDDAT :BAD DATA 
MOV Ri, ’ JHREGADR :FAILING REGISTER RHCS1 
ERROR ;DURING ABOVE OPERAT 
BND OULD BE SET 
64S: MOV #MOL! DPR! VV ~(sp} ave BITS SET DURING OPERATION IN RHDS1 
MOV .- (SP), QRSGDDAT -’ ;SAVE FoR PR 
CMP (SP)4 RE sQURTNG aBOVE OPERATION ONLY MOL!DPR!VY 
BEQ BE ; BRANCH IF GOOD. . 
MOV RS, J#SBODAT ATA 
MOV R3, J#REGADR iFATLING REGISTER RHDS1 ' 
ERROR 63. :DURING ABOVE OPERATION ONLY . 


MOL! DPR! VV SHOULD BE SET 
66S: 


“NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 
JSR RO, JF ILLRE NTO RHWC 
RHWC SAVED REGISTER TO CHANGE 3 


MOV WRFROM+<266.#2> INTO SAVED RHBA 
SAVED REGISTER TO CHANGE 
ee Roe 26. .¥2) 


RO, J#F ILLRE ;MOV 2 INTO SAVED RH RHDST 
RHDST ‘SAVED REGISTER TO CHANGE 


: DATA 
;NOW COMPARE REGISTERS BEFORE WRITE HEADER AND DATA 
WITH REGISTERS AFTER COMMAND 


JSR RO, 2#COMREG ; COMPARE saved REGISTERS WITH 
PRESENT VALUE 


0 
be RO, J#F ILLRE 
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7513 024354 o04S22 SAVERE ;6000 DATA SAVED IN ;SAVERE” a. bs 
7514 DeH356 go2266 WC ‘ DATA STARTING FROM. RHUC’ b 
Sate Beuaed BRaREE 1g: Bs fe 8 TP on ERROR 

7517 O2e4264 02437 25 RETURN TO 2$ oN NO ERROR 


7519 024366 104027 1S: ERROR 27 ;WRITE HEADER AND DATA 
500 024370 00207 RTS PC s CAUSED IMPROPER REGISTER 
rose , 3 GOOD DATA GIVES WHAT SHOULD 
7524 ‘RECEIVED DATA GIVES WHAT 
7525 AS THERE AFTER COMMANT 


7527 ;NOW WRITE FROM BUFFER WILL BE CHECKED TO SEE THAT 
7S$28 :NOTHING GOT CHANGED 


7$30 

7531 024372 004037 036576 JSR RO, d#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 

7$32 024376 003444 REINTO GOOD DATA STARTS FROM REINTO 
7533 Oe4400 002400 WRF ROM TEST DATA ster FROM WRFROM 

7534 O2e440e O004le 266. 266. WORDS TO BE_COMPARED 

7535 Oe4404 24410 3$ ;RETURN TO 3$ ON ERROR 

7535 Oe4406 024414 4$ RETURN TO 4$ ON NO ERROR 


7538 
7539 O24410 104030 3$: ERROR 30 ;WRITE HEADER AND DATA 
7540 Oe%4le 000207 RTS PC ;CHANGED WRITE FROM BUFFER 


7542 ;NOW A READ HEADER AND DATA COMMAND WILL BE GIVEN 
eS FOR SECTOR 1, 256 WORDS 

7545 ;READ INTO BUFFER IS FILLED WITH ONES 

aS 024414 4$: 

7548 024414 004737 O345S56 JSR PC, d#CLDISK + RI-RHCS1, Re-RHCS2 


7552 024420 004037 034426 JSR RO, J#CLAREA :CLEAR 260. WORDS, FROM REINTO 
7553 O244e4 O03444 REINTO *STARTING FROM REINTO 

7554 Oo44e6 O00404 260. 260. WORDS 

7555 024430 000377 377 :FILL WITH 377 


te ;WRITE FROM BUFFER IS FILLED WITH EXPECTED DATA 






7559 Oe4432 004037 O3440e JSR RO, J#F LHEAD ;SAVE HEADER DATA im WRFROM 

7560 024436 002400 WRF ROM sLOCAT ION WHERE SAVED 

7561 Oe4440 O00006 6 NUMBER OF WORDS SAVED 

be 10000 TFIRST DATA WORD 

1 ;SECOND DATA WORD 
0 ; THIRD DATA WORD 
0 ;FOURTH DATA WORD 
1 jEIFTH DATA WORD 
| ;SIXTH DATA WORD 
JSR RO, J#CLAREA CLEAR 254 WORDS, FROM WRFROM+<6. ¥2> 


REECE tf OeRP USS pA FA ) 17-SEP-76 13:23 PAGE 155 
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7569 geuube oge414 WRF RON+ 6. #2> “STARTING FROM WRFROM+<6. ¥2> 
TY 
Peep Bence S33 FRU 0 
573 :NOW FILL COMMAND 
< 
7575 024470 004037 036532 JSR RO, 2#RUN :SETUP TO RUN FOR DATA COMMAND 
c506 024474 o0c000 0 CYLINDER O 
7577 O24476 01 .BYTE 1 - i SECTOR 1 
7578 024477 900 -BYTE O TRACK O 
7579 Oe4S00 177374 -256.-4 : WORD COUNT (DATA)=256. + 
7580 5 ;4 HEADER WORDS 
7581 o24S02 o03444 "eas REINTO DDRESS 
7582 STARTING RODRESS OF DATA 
7583 ?BUFFER = 
7584 o24504 on0000 0 DO NOT initerr BUS ADDRESS INCRENENT 
7585 oe4506 014000 ECI!FMT2e2 16 BITS PER WORD FOR 
7586 --s INHIBIT’ ECC CORRECTION 
7587 D0 NOT INHIBIT HEADER COMPARE 
7588 O24S10 002362 REFOR - *GET READY TO DO A REFOR 
7589 “READ HEADER AND DATA WITH 72 IN RHCS1 
7591 
7592 “NOW SAVE REGISTERS FOR COMPARISON AFTER READ HEADER AND DATA 
7593 024512 O04037 O34716 SSR RO, dJ#SAVER - ;SAVE REGISTERS 
7594 024516 O02210 RHWC *RHWC IS THE FIRST REGISTER SAVED 
7595 024520 o04S22 SAVERE :STARTING ADDRES OF WHERE 
75% ;THE REGISTERS ARE SAVED 
7597 o24S22 o00022 18. NUMBER OF REGISTERS 
7538 SAV ED = 18. 
7600 024524 004737 034636 JSR PC, JHCHECKT CHECK DVA,RDY,MOL, DPR, DRY, VV 
7602 | : 
7603 O24530 013777 OD4SI6 155446 MOV DHRPYVEC, IRPVEC ;SET RPOY VECTOR ADDRESS 
7604 TO 'TIME1’ IF P-CLOCK IS PRESENT 
7605 OR TO *TIME2’ IF P-CLOCK IS NOT PRESENT 
7606 ;* * WILL ONLY SAVE 
7607 ‘CURRENT CYLINDER ADDRESS 
7608 "AND LOOK AHEAD REGISTERS 
7610 
7611 O24S36 013746 002362 MOV JSREFOR,-(SP)  ;GET READY TO ‘MOVE COMMAND 
7612 Oc4542 052716 OO010! BIS #GO'IE, (SP) GET READY TO SET GO AND 
7613 :ENABLE INTERRUPT: 
7614 O24S46 012677 155444 MOV (SP)+, IRHCS1 $60 _ WITH 
7615 N RHCS1 FOR READ DATA 
7616 with TNTERRUPT ENABLED 
7617 O2e4SS2 011100 MOV aR1, RO :SAVE RHCS1 DURING ABOVE OPERATION 
7618 O24554 011305 MOV aR3 -SAVE RHDS1 DURING ABOVE OPERATION 
7619 : ONE REVORaTION = 16670 MICRO SEC, ONE SECTOR 760 MICRO SECONDS 
7621 O24SS6 104410 WAT ;WAIT FOR RDY BIT TO SET 
7eee Oe4560 O02216 RHCS1 :WAIT FOR RHCS1 REGISTER 
7623 Oe4s62 oO00200 RDY ‘WAIT FOR RDY BIT IN RHCS! REGISTER 


7624 Oe4S64 001614 908. ALLOW 9080 MICRO SECONDS 
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RPUB.P11 T30 IMPLIED SEARCH 
7625 Oe4S66 001507 839. : hr a = BETWEEN 

MPARE CO H RHOSI T ALREADY SAVED IN 
Fee {RD RAD RS THRO TEL nie, 
7629 Oe4870 013746 0023 d#REF ;SAVE COMMAND 
7639 O2e4S74 052716 904101 HE tGOsDVAS( (3p) ; INCLUDE yh Abe 
7631 024600 011637 001124 a (SP), a8SGDDAT  ;SAVE FOR PRINTOUT 
reas 024604 022600 CMP (SP)4,R0 ;DURING ABOVE OPERATION ONLY IE!GO!DVA 
763 ;AND COMMAND SHOULD BE SET 
7634 O2460&6 001405 BEQ 67$ 3 ; BRANCH IF GOOD 
7635 024610 010037 O011e6 MOV RO, J#SBDD9T" 
7636 O24614 910137 O04S10 MOV R1; J#REGADR FAILING REGISTER wee 
7637 024620 104021 ERROR el ;DURING ABOVE OPERATION ONLY 
7638 ‘COMMAND AND IE!GO!DVA SHOULD BE SET 
7639 Oe4622 Ole746 010500 678: MOV #MOL!OPR! VV = (SP) ; SAVE tM i SET DURING OPERATION IN RHDS1 
7640 O24%626 911637 001124 MOV 3B} J#SGDDAT —; SAVE _FOR PRINTO 
At O2e463e Oeeb0S CMP (SP)4+,R5 Leal, es SSERATION ONLY MOL!DPR!VV 
7643 024634 001405 BEQ 695 ; BRANCH IF GOOD 
7644 Oe4636 010537 001126 MOV RS, d#SB8D0DAT ATA 
764S Oe464e 010337 004510 MOV R3, J#REGADR FAILING REGISTER RHDS1 
7646 O24646 104063 ERROR 63° DURING ABOVE OPERATION ONLY 
7647 ;MOL!DPR!VV SHOULD BE SET 
A a 024650 698: 
7650 ;CHANGE SAVED REGISTERS TO EXPECTED VALUES 

. 7651 4650 004037 034460 JSR RO, d#F ILLRE ;MOV_O INTO SAVED RHWC 
7bSe 4654 O002e10 RHWC igaved REGISTER TO CHANGE 
7653 024656 000000 0 
7654 024660 004037 034460 JSR RO, J#F ILLRE MOV PREINTO+< 260. #2> INTO SAVED RHBA 
7655 Oe4664 O02ele RHBA :SAVED REGISTER TO CHANGE 
7656 024566 OO44S4 REINTO+<260. ¥2> ;DATA 
7657 024670 904037 034460 JSR RO, d#F ILLRE 2 INTO SAVED RHDST 
7658 Oc4674 O02ece RHDST SEVED REGISTER TO CHANGE 
4 2 024676 000002 e ;DATA 
7661 ; COMPARE REGISTERS BEFORE READ HEADER AND DATA 
Pepe WITH REGISTERS AFTER COMMAND 
7664 
a4 024700 004037 035546 JSR RO, J#COMREG oo oe REGISTERS WITH 
7667 024704 O04S2e SAVERE 60 DATA SAVED IN *SAVERE’ 
7668 024706 O02266 WC ; TEST eele STARTING FROM *RHWC* 
7669 024710 O00022 18. 318. REGISTERS TO BE COMPARED 
7670 Oe 024716 S$ ;RETURN $ 
A 2a 024714 024722 6S sRETURN TO 6$ ON NO ERROR 
7673 
7674 024716 boosh S$: ERROR 31 ;READ HEADER AND DATA CAUSED 
7675 Oe47e0 00020 RTS PC IMPROPER REGISTER CHANGE 
a | ; 00D wee GIVES WHAT SHOULD 
7678 SREC eIvED pare GIVES WHAT WAS 
TER COMMAND 


7679 + : THE 
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DERFUB.Pil 


768) 
-~ 


- ta! rrertertesterte totatutaty 
‘ 
Rt SRE tine Ont SEULE Cote 


Prrre 


‘ee 
° 


o24744 
OS474E 
bz4752 


024760 


OO4O37 036576 
= - 


000004 
O1270& 901000 
012737 000031 


004737 O34556 


MACYLL é7 (732) 
T30 IMPLIED SEARCH 


004514 


17-SEP-76 13:23 PAGE 157 


sNOW READ INTO BUFFER WILL BE CHECKED TO SEE 
THAT READ WAS SOOD 


$$: 
JS RO, JaCOMPAR s COMPARE TWO BLOCKS OF MEMORY 
WREROM :G000 DATA Feo WREROM 
SE INTO »TEST DATA STORTS FROM REIN 
250. 7260. WORDS T> CO D 
? ;RETURN TO 78 ON ERROR 
10$ RET IRN TO 1C3 ON NO ERROR 
Ts: ERROK 22 sWRITE HEADER AND DAT 
RTS eS sFOLL OWED 8 RESD Me DES 
ZANE DAaTR GAVE A SERD ERBOS 
08 ERE OR MAY BE IN READ OF WRITE 
3, eee SPSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSPSSSESSSSSSSS H+ 45445454 +55 
#TEST 31 IMPLIED SEEK 


ONE SECTOR of" WORDS 


Teak Is SECTOR 21, KEYS=0, Nut .. NUMBER OF OF WORES 266 unos 


(4 HE DER. 258 "iho OaT8 F 2 pare 
THEN READ HEADE A FoR “FSOvE ye = SECTOR. 0, cYL=l 
WATT FROM BUFFE RAND READ BUFFER FILLED 


0 “0 S6 genes! BY he be aoa00 
io a verte Res Is 7 riteh 88 LOA ie ies He REGISTERS EXCEPT 


THE GC BIT, BND ALL THE R 
THEN GO IS’GIVEN FOR WRITE STEADER AND Baye 


NOW FOR READ COMMAND READ INTO BLFFER IS FILLED 
WITH an snes WRITE RON BUFFER IS LOADED WITH 
100 Bho 2 OF 2000,254 OF ZEROS COMMAND IS LOADED 
INTO. eo a eRe EXCEPT GO “hig IE ALL REGISTERS ARE SAVED 
eta) \ at FOR THE READ COMMAND 


ALL REGISTERS ARE CHECKED FOR IMPROPER CHANGE 
THEN THE READ DATA IS COMPARED. 


be 


har MeN as eae eee 
is C 

MOV BSTACK, SP :RESET STACK 

MOV #31, 28tSTNM :SAVE TEST NUMBER 


JSR PC, d8CLOISK ;SET RI-RHCS1, Re-RHCS2 


ONLY NEW gk IN THIS TEST IS AN IMPLIED SEEK FROM CYLINDER 
TO CYLINDER 1, A WRITE HERDER AND DATA IS GIVEN FOR MORE THAN 


THEN ALL_REGISTERS ARE COMPARED TO CHECK FOR IMPROPER CHANGE 
THEN WRITE FROM BUFFER IS CHECKED TO SEE THAT NOTHING CHANGED 
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DER 
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Ce5100 





3 
ial 


004037 
oos444 


000400 
003125 


ee eee 
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IMPLIED SEEK 
:R3-RHOS1, R4Y-RHERI 
GIVE RH-11 INITIALIZE 
:SETUP UNIT NUBER 
:FILL WRITE FROM SUFFER WITH HEADER 
034402 JSR RO, J#F LHEAD : SAVE ADER para iN. IN WREROM 
RF ROM *LOCATION WHERE 
: NUMBER oF aliORDS CHKED 
logod FIRST DAT 
Pe e4CO> #<21. ae CoN DATA WORD 
0 : THIRD DATA WORD 
0 FOURTH BATA” WORD 
“FILL WRITE FROM BUFFER WITH DAT 
03442 $SR RO, D&CLAREA CLEAR 2, aliR0S. FROM WRFROM+10 
WREROM+10 TING FROM WRFROM+10 
256. :256. woes 
(18. *40>'21. FILL WITH «18. #40) !21. 
sFILL WRITE FRON BUFFER WITH NEXT TRACK HEADER 
034402 JSR RO. DaFLHEAD sSAVE HEADEF DATA IN WRFROM+<260. *2> f\, 
WRFRON+< 26. #2) LOCATION WHERE SAVED - NG 
: NUMBER iF ltOBOs SAVED 
10001 *FIRST WORD 
0 SECON bar WORD 
5 IRD DATA WORD 
0 OUT BATA WORD 
“FILL WRITE FROM SUFFER WITH NEXT TRACK DATA 
024426 tse RO, J#CLAREA CLEAR 7 WORDS FROM WREROM+<264. #2). 
| WREROM+< 264. #2) aes ARTING FROM WRFROM+< 264. 22> 
2000 *FILL WITH 2000 
su AD INTO BUFFER Sit 3 FILLED WITH SAME DATA 
a! TE af RO BUErE R SO THAT AFTER A WRITE COMPARISONS 
E TO MAKE THAT WRITE O10 N 
ANGE WRITE FROM BUPEER. 
o24402 JSR RO, SFLHEAD ;SAVE HEADER DATA IN REINTO 
REINTO ‘LOCATION WHERE SAVED 
4 *NUMBER OF WORDS SAVED 
19000 :FIR TA WO 
(18. #400>!<21.> SECOND DATA WORD 
0 s THIRD DATA WORD 
0 FOURTH DATA WOP 
024426 JSR RO, J#CLAREA FeL EAR 258. WORDS, FROM REINTO+10 
REINTO+10 RTING FROM REINTO+10 
256. 256. wos 
(18. #40>'21. sFILL WITH <18.840>!22. 
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7793 025102 o04037 O34402 - JSR RO, J#FLHEAD : SAVE HEADER para IN REINTO+< 260. #2) 
7794 325108 4454 REINTO*< 268. #2) is ATION. WHERE 5 SAY 

7795 «(02511 ood sNUMBER 6 altdR 

7795 «O25112 610001 10001 FIRST DATA WORD : 

7737 «(925114 99590 0 : SECOND BAT A WORD 

7738 025116 0000 0 THIRD RTA WORD 

rr33 (025120 900000 ; 5 ‘FOURTH DATA WORD 

7820 625122 04037 o34426 ; JSR RO, JECLAREA ‘CLEAR e hors FROM REINTO+< 264. #2> 
780i 025126 004464 REINTO+< 264, #2) pice FROM REINTO+< 264. #2) 
7802 825i3¢ 900002 32 W 

3803 025132 002060 2000 * FILL WITH 2000 

2805 :NOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 

7807 025124 904037 036532 ISR RO, J#RUN :SETUP TO RUN FOR DATA COMMAND 

7898 O2514¢ 900990 fi 9 ;CYLINDER 0 

7803 925142 025 -BYTE 21. :SECTOR 21. 

7810 925143 O22 “BYTE 18. TRACK 19. 

7811 025144 177266 ; -262.-4 ;WORD COUNT (DATA) =262. + 

7212 ; 74 HEADER WORDS 

7E13 O25146 o02400 WRFROM :BUS ADD 

7814 | ; STARTING ADDRESS OF DATA 

78is : : BUFFER FROM 

7ai§ 025150 coooro 9 D0 NOT. INH Wats Bus RODRESS INCREMENT 
7817 326152 010000 FMT22 '16 BITS PER WORD FORMA 

7818 08 NOT INHIBIT ECC RORRECTION 

7819 09 Nor iBT HEADER COMPARE 

7820 c25154 o02e3s -- WRIFOR REX TO DO A WRIFOR 

Bei WRITE ubsbee AND pata WITH $2 IN RHCS1 










7 ; E 
feet 3s ; NOW SAVE RESISTERS FOR COMPARISON AFTER WRITE HEADER AND DATA 
78eS 025156 004037 034716 -  JsR RO, J#SAVER ; SAVE meets! ERS 
7 CeSigée 002210 RHWC RHWC IS THE FIRST REGISTER SAVED 
. 7827 O2S5164 004522 < SAVERE : STARTING ADDRES OF WHERE 
7828 on <8 ; THE REGISTERS ARE SAVED 
7823 OeSib& C0022 18. : NUMBER 4 REGISTERS 
7839 SAVED = 18. 





783e 025170 004737 O34636 JSR PC, d8CHECKT ;CHECK DVA,RDY,MOL,OPR, ORY, VV 








7835 025174 013777 OO4Si6 155002 MOV OSRPYVEC ,AIRPVEC ; iSET RPOY VECTOR ADDRESS 

7836 310 ae IF ne Bere IS PRESENT 

7837 ;0R TO *TIME2’ IF P-CLOCK IS NOT PRESENT 
7838 :*TIME’ WILL ONLY SAVE 

7839 : CURRENT CYLINDER ADDRESS 

7840 | AND LOOK AHEAD REGISTERS 










7843 OeSe0e 013746 002356 . MOV QSWRIFOR,-(SP) ;GET READY TO MOVE he 

7844 OeS2e06 052716 OOOI0l BIS aGO!TE, (SP) ;GET READY TO SET GO AND 

7845 ENABLE | INTERRUPT 

7846 CeS2l2 012677 155000 MOV (SP)+, JRHCS1 

7B47 ;62 IN "RCS! FOR WRITE HEADER AND DATA 
7848 sWITH INTERRUPT ENASLED 












DERPLUB 
Sec3 $5e548 
7853 O2eS2ee 
7854 GeS2e4 
025226 
7S8S& 025230 
025232 


73 7 
7873 OeSe76 








7302 025364 
7904 02537 
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11 
abe 
104410 
002216 
000200 


003237 
001515 


013746 


010037 
010137 
104021 


Ole74— 
011627 
O22 


004037 
004S22 





002356 
004101 
O0ile4 


001126 
004510 


024460 


034460 


034460 


O34460 


034460 


035546 
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0 
ISR RO, J#F ILLRE IOV WRFROM+< 266. x2) Rue SAVED RHBA 
RH :SAVED REGISTER TO CHANGE 
WRFROM+< 266. ¥2> “DATA 
JSR RO, J#F ILLRE INTO SAVED R 

ne AeaisTER TO CHANGE 










MOV Rl R ;SAVE RHCS1 UR ING AOE OPERF™ 

MOV :SAVE RHOS1 DURING AGOVE OPERAT BN 

; ONE REVOLUTION = 16670 MICROI SEC, ONE SECTOR = 760 MICROL SEC 
WAT ;WAIT FOR ROY BIT TO SET 

RHCS1 sHATT aaa RHCS1 REGISTER 

ROY sHAIT RDY BIT IN RHCS1 REGISTER 
1695. LOM 16950 MICRO SECONDS 
645. :RDY MUST SET BET 






WEEN 
38500 AND 25400 MICRO SECONDS 
ee ee alt Ba OF RHCSL AND RHDS1 ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER 2, 










doy JHWRIFOR, -(SP) A eriV E COMMAND 

SIS sIE!Go!DvA csp)  Iictube 1E2G08DvA 

MOV (SP) 59 SaScobAT — FOR PRINTOUT 

CMP (SP)4,R :D GORING G ABOVE OPERATION ONLY IE!GO!DVA 
NE MMAND SHOULD BE SET 











S4$ 
MOV Bd» dsS800AT ;BAD DATA 
















MOV 1; J8REGADR "FAILING REGISTER RHCS1 
ERROR 8 :DURING ABOVE OPERATION ONLY 
:COMMAND AND IE'GO!DVA SHOULD BE SET 
MOV #MOL! DPR! VV,-(SP} SAVE Bh S SET DURING OPERATION IN RDS! 
MOV (SP) “DaSGDDAT  —«s SAVE Fok TOUT 
CMP (SP) 34°8 RS ; DURING s ABOVE “OPERATION ONLY MOL!DPRI VY 
BEO 66S t BRANCH IF GOOD 
MOV RS, J8SBDDAT :BAD DATA 
MOV R32’ J#REGADR FAILING REGISTER RHDS! 
ERROR 63° : DU RING ABOVE OPERATION ONLY 
*MOL'DPR!VV SHOULD BE SET 
*NOW CHANGE SAVED pbEGISTERS 19 EXPECTED VALUES Pe : 






SSR RO, dF ILL VED RHWC 
RHIC ; SAVED REGISTER TO CHANGE 









1 ; 
JSR RO, J#F ILLRE 1 INTO SAVED RHCC 
RHCC ae REGISTER TO CHANGE 


1 
JSR RO, J#F ILLRE ;MOV_1 INTO SAVED RHDST 
RHDST s SAVED REGISTER TO CHANGE 









;NOW COMARE REGISTERS BEFORE WRITE HEADER AND DATA 
WITH REGISTERS AFTER COMMAND 


JSR RO, J8COMREG EERE SAVED REGISTERS WITH 
SAVERE ;G00D ATA SAVED IN *SAVERE’ 
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025372 Wy ; TEST DATA STARTING FROM *RHWC’ 
025374 18. :18. REGISTERS TO BE COMPARED 
025376 1$ RETURN TO I$ ON ERROR 

025400 4 2$ ;RETURN TO 2$ ON NO ERROR 


o25402 ss :; ERROR 27 sWRITE HEADER AND DATA 
025404 | RTS) sé ‘CAUSED IMPROPER REGISTER 


: CHANG 
GOOD DATA GIVES WHAT SHOULD 


H 
RECEIVED DATA GIVES WHAT 
WAS THERE AFTER COMMANT 


;NOW WRITE FROM BUFFER WILL BE CHECKED TO SEE THAT 
:NOTHING GOT CHANGED 


mt 
0 


> hee be” ie! ie ie be’ ie 
1M O.WO NOUL-£ Wt 


038576 JSR RO, JCOMPAR ;COMPARE TWO ae OF MEMORY 
; RE INTO :G00D DATA STARTS Peoe feanro 


WRFROM 
266. 


35 $ ONE 
ug ERETURN TO 4§ ON NO ERROR 


_ 30 ;WRITE HEADER AND. DATA 
RTS PC :CHANGED WRITE FROM BUFFER 


; NOW a READ HEADER AND DATA COMMAND WILL BE GIVEN . 
;READ INTO BUFFER IS FILLED WITH ONES : 


JSR PC, JHCLDISK ;SET RI-RHCS1 fecthese 
:R3-RHDS! HER] 
: GIVE at INETIALIZE 
*SETUP UNIT NUBE 

JSR RC, J#CLAREA CLEAR yea WORDS FROM REINTO 

RE INTO : $ STARTING EROH REINT 


~< ate ‘FILL WITH -1 
WRITE FROM BUFFER IS FILLED WITH 10001,0,0,0,2000,2000, AND 254 oF C 


p04037 o34402 JSR RO,SSFLHEAD ©; SAVE _HEADER DATA IN WRFROM 
go2400 WRFROM E SAVE 


b 

19001 

0 
0 
0 

. 2000 ; 

2000 :S DATA WORD 

- 034426 JSR RO JHCLAREA : CLEAR 254. WORDS, FROM WRFROM+<6%2> 
WE ROM +(6#2) STARTING FROM WRFROM+<6#2> 


, 2254. WO obs 
o0c000 7 0 rs *FILL re hy 
































Ine pit “Te 
DERPUB.P 


025520 
025522 
025524 
025526 
925532 
0eS534 
025536 
025540 


025544 


o2s5Se2 
025556 


OeSSée 


T3l 


004037 
000001 


.._ 000 
177374 


pos444 
900000 
014000 


002362 
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036832 


034716 


034636 


004516 


092362 
000101 


154430 


154432 


.BYTE 
.BYTE 
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NOW FILL COMMAND 


JSR 
1 
9 
0 


-256.-4 
REINTO 


RO, d#RUN 


0 
ECI!FMTee 


REFOR 


JSR 
RHWC 
SAVERE 
18.. 
JSR 


MOV 


dasa 







;SETUP_ TO RUN FOR DATA COMMAND 
;CYLINDER 1 


TRACK O ° 
; WORD cotnt ie? + 


“NOW SAVE REGISTERS FOR 
RO, VER 


PC, J#CHECKT 


OBRPAVEC , RPVEC 


J#REFOR 


#GO!TE, tsp) 


~(SP) 


(SP)+,JRHCS1 


aR1,RO 
aR3,RS 





Sau ADDRESS 

i BORING ADR BR° OF DATA 

;D0 NOT rig} . ADDRESS Le ede 
6 BITS WORD FORMA 

TET ek CORR FETION 


DY TO DO 
READ HEADER AND DATA WITH 72 IN RHCS1 





COMPARISON AFTER READ HEADER AND DATA 
;SAVE REGISTERS 
SRHWC_IS THE FIRST a SAVED 


EGIS 
;NUMBER OF REGISTERS 
VED = i8. 


;CHECK DVA,RDY,MOL, DPR, DRY, VV 


T RPOY VECTOR ADDRESS 

'TIMEL’ IF P-CLOCK IS PRESENT 
QR 7," TINEe* IF B-CLOCK IS NOT PRESENT 
CURRENT CYLINDER ADDRESS 
SAND LOOK AHEAD REGISTERS 


:GET READY TO MOVE COMMAND 
GET READY TO SET GO AND 
‘ENABLE INTERRUPT 
360, WITH 
IN RHCS1 FOR READ DATA 
suite INTERRUPT ENABLED 
SAVE RHCS1 DURING ABOVE OPERATION 
:SAVE RHDS1 DURING ABOVE OPERATION 


HHRET FOR FOR RDY ve! TQ oer 


3R ET BET WEEN 
:690 AND 17470 MICRO SECONDS 
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8017 ;COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
l sR AND Re 5 LHMEDIATELY AFTER GO 
025694 01374 002362 sSAVE COMMAND 
052716 004101 ates Ror ovA’C (SP) ; INC LUDE TE:GO10vA 
001124 (SP) aeSGDDAT SAVE FOR mie be 
wes RO G BOV OPERATION ONLY IE'GO!DVA 
AND COMMAND SHOULD BE SET 
BEQ ;BRANCH IF MB Osh 
001126 , J#SBDDAT 


TA 
004510 MOV  JBREGADR iPAILING REGISTER RHCS1 
: DUR ING ABOVE OPERATION ONL 
“COMMAND AND IE!GO!DVA SH ObL LD BE SET 
010500 : OL! DPR! VV,-(SP3 - SAVE BITS SET DURING OPERATION IN RHDSi 
001124 P). a8SGDDAT  ;SAVE FOR PRINT 
p}4 Re sDURY NG RBOVE OPERATION ONLY MOL!DPR! VV 


698 BRAN My GOOD 
001126 RS, d#SBDDAT 
904510 MOV R3, d#REGADR SPATLING REGISTER RHDS1 
63° DURING ABOVE OPERATION ONLY 
:MOL!DPR!VV SHOULD BE SET 


;CHNAGE SAVED REGISTERS TO EXPECTED VALUES 


034460 JSR RO, J#F ILLRE ;MOV_O INTO SAVED RHWC 
RHWC ; SAVED REGISTER TO CHANGE 


0 TA 
034460 JSR RO, d#F ILLRE MOV REINTO+<260.#2> INTO SAVED RHBA 


;SAVED REGISTER TO CHANGE 
R piToeceso, #2) 


034460 JSR RO, J#F ILLRE INTO SAVED RHDST 
RHDST gave REGISTER TO CHANGE 


;COMPARE REGISTERS BEFORE READ HEADER AND DATA 
{WITH REGISTERS AFTER COMMAND 


RO, J#COMREG on SAVED REGISTERS WITH 
; PRESENT Mart UE 
;GO0D DATA SAVED IN *SAVERE’ 
; TEST DATA STARTING FROM *RHWC’ 
EGISTERS TO SE COMPARED 
RETURN TO 5 


RETURN TO 6$ ON NO ERROR 


025732 104031 : ;READ HEADER AND DATA CAUSED 
025734 000207 RTS . PC IMPROPER REGISTER CHANGE 
“a ; GOOD D eare GIVES WHAT SHOULD 


RECEIVED DATA GIVES WHAT WAS 
THERE AFTER COMMAND 


;NOW READ INTO BUFFER WILL BE CHECKED TO SEE 
THAT READ WAS GOOD 
025736 
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025736 004037 036576 JSR RO, J#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 


ae BA a 009 BUR ann Bla RE 


025746 4 ‘ i260, WORDS_TO on esenereo 
025750 $ URN 10 7$ 
025752 ; RETURN by os” ON NO ERROR 


m 78: ERROR 32 SWRITE HEADER AND DATA 
50025 RTS. SFOLL 4 D0 
108 TERROR MAY BE IN READ OR WRITE 


J. a elaiemagy it -* aaiaeiaaaa aaa aa 
xTEST 32 SEEK TEST 


THIS TEST GETS THE HEADS OUT TO CYLINDER 10 NOT BY ONE 
SEEK BUT BY TEN IMPLIED SEEKS ONE CYLINDER AT A TIME 


THIS TEST STARTS WITH A (ALREADY Mg RECALIBRATE 
T S CYLINDER ON DER O SECTOR 


THE HEAD TO CYLINDER 1 _ THEN E 
CYLINDER 1 SECTOR #21 TRACK #18 THERE §y GETTING 
THE HEADS TO 


. CYLINDER 2 
HEADS. T9,CYLINGE 10 TIMES GETTING THE 

THEN A SEEK COMMAND IS GIVEN TO CYLINDER 0 
AND DATA ALREADY WRITTEN IS CHECKED 


BREE HHH SHEESH HARE EE Ee 
oooo4 ts732: SCO 
012706 001000 MOV #STACK, SP sRESET STACK 
025766 012737 000032 cO4S14 MOV #32, J8TSTNM ‘SAVE TEST NUMBER 


025774 004737 O34SS6 JSR PC,awCLDISK - ;SET RI-RHCSI, feaRHCs2 
. *R3-RHDS1, R4-RHER! 
“GIVE RH-11 INITIALIZE 
:SETUP UNIT NUBER 
; THE FOLLOWING MOVES ARE’TO INITIALIZE TEST FROM 


*CYLIN 
ne : THESE LOCATIONS ARE CHANGED DURING TEST TO ENABLE 
“GOING TO eNO CYLI NOER 

010000 Oe6iS6 OV #1000 0. Se8ti 10 

aK] g.H03 12 >, d8ST2+10 

tiopsi a #ST3+10° 

#2000 seerusiO 

9, a8STS Se4 


Se ee ee ee es ee eset ae ae 


HE IK KE HE DC RC ic ic ie Dc te oc 


ee eeee 


0 
) 
is) 
1 
i 
i 
1 
1 
1 
1 
1 
1 
1 
2 
e 


809 
100 
102 
194 
105 
106 
197 
108 
199 
110 
1il 
lie 
113 
114 
115 
116 
117 
118 
119 
120 
lel 
lee 
123 
124 
125 
126 
127 
128 


COMMMOWWOWOMOMMOMOMOMOMOoOoOdMac coma@Macdnda 


o26060 Oe65Se 





= 
2 & 


0009 00000000 co 0000 00 CGD 


ao ao 
o- bb -< b> 
a ££ 
u1fwrM 


£ 
Ns 


ve miskat ath shaken 
HSSBOIRF REELS 


@maocnocw§w 
b= be pe 
iP oe - 
Owo 


uw 
~~ 


WOM WOWMOWMOMOWOWOUDOWOOWOWOWOWOOVNODMOWMMMWOMOMMOMOMWMMaca 
DOMOOO VIII IIN IIIT OOO r oor orounnuuUnnU 


MAINDEC-11-DERPU-B 
| DERPUB.P11 T32 


026066 
026074 


026102 
026106 


026112 


026200 


026200 
026204 
026206 





012737 
013777 


013746 
052716 


012677 
011100 
011305 


104410 
002240 


- 000200 
076377 


056701 
012737 
004737 


001125 


004037 
003410 
000004 


002340 
000101 


154100 


000012 
034556 


034402 


034426 





034402 
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SEEK TEST 
oov00: 926572 
po4sié 154102 















MOAT IS ‘ GET the HEADS T YLINDI 0 
MOV 8 ARPVEC ; ist, Rros NECTOR ADDRESS 

F P=CLOCK IS PRESENT 
10, eI MeS. IF P-CLOCK IS NOT PRESENT - 
' ME ty SAVE 


? WIL 
CURRENT CYLINDER ADDRESS 
SAND LOOK AHEAD REGISTERS 


MOV auRECAL -(SP) ;GET READY TO MOVE COMMAND : 
BIS E, (SP) *GET READY TO SET GO AND ; 

ENABLE INTERRUPT 
MOV (SP)+, JRHCS1 $60 WITH 






IN RHCS1 FOR RECALIBRATE 

, siti INTERRUPT ENABLED k 
MOV R1,RO SAVE RHCS1 DIRING ABOVE OPERATION 
MOV aR, RS ;SAVE RHDS1 DURING ABOVE OPERATION 
WAT ) WAIT FOR DRY BIT 10 SET 
RHDS1 m :WAIT FOR RHDS1 REGISTER 
DRY ;WAIT FOR DRY BIT IN RHDS1 REGISTER 
31999. ALLOW 319990 MICRO SECONDS 
24001: ?DRY MUST SET BETWEEN 





paged AND 560000 MICRO SECONDS 
MOV #10. ,daSTMP1 TEN COUNT TO GET TO CYLINDER 10 


JSR PC, @¥CLDISK =; SET _RI-RHCS1, R2-RHCS2 
sRI-RHOS, RY 4-RHER] ( 
GIVE RA-11 INITIALIZE \ 
;SETUP UNIT NUBER Y 


;FILL WRITE FROM BUFFER WITH HEADER 
JSR RO, J#FLHEAD ; SAVE HEADER oore IN WRFROM 
WRF ROM E SAVED 


4 : NUMB 
10000 FIRST DATA 

(18. #400) !21. SECOND DATA WORD 

0 ; THIRD Dita WORD 

0 ‘FOURTH DATA OORD ; 


;FILL WRITE FROM BUFFER WITH DATA 


JSR RO, J#CLAREA ;CLEAR 256. WORDS, FROM WRFEROM+10 
WRFROM+10 ne wohseRT Ne FROM WRFROM+10 
(0.¥2000)!<18.#40>!21. 7° sFILL WITH <0. ¥2000>!<18.*40>!21. 


;FILL WRITE FROM BUFFER WITH NEXT TRACK HEADER 


ISR RO, J#FLHEAD :SAVE HEADER bara IN URFRON+ 260. #2) 
HRFRON+< 260. ¥2) LOCA WHERE SAVED 
:NUMBER OF WORDS NSAVED 





MAINDEC-11-DERPU-B 
DERPUB.Pil T32 


tnt mt att arnt tp ata tat at ata 
SLOVRRLGOLSSasen & 


tee 
i 
fe 


fororurorure 
RREGO— 


Ororoforororurororore 
+ OOO LOU ODw 


co 
mM 
mM 
Ww 


3 
8236 026300 
8237 026304 


8239 026310 


010001 


000000 
00000 


004037 
000000 

B53 
177366 
002400 


000009 
010000 


002356 
004037 
002210 
00422 
000022 
904737 


013777 


013746 
052716 


012677 
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034426 


036532 


034716 


034636 


004516 


002356 
000101 


153702 


153704 
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vool sEIRST DATA WORD 


1 

0 

3 {THIR DATA WOR 
FOURTH DATA WORD 


:FILL WRITE FROM BUFFER WITH NEXT TRACK DATA 


JSR RO, JHCLAREA : CLEAR 2 WORDS FROM WRFROM+< 264. *2> 
WRFROM+< 264. ¥2) RTING FROM WRFROM+< 264. #2> 


32 W 
1. *2000 SFILL pire 1. #2000 
; THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 


JSR RO, 3#RUN ; SETUP TO RUN FOR DATA COMMAND 
0 NDER 0 
21. ISECTOR 21. 
18. K 18. 
262. -4 : WORD COUNT (DATA) =262. + . 
:4 HEADER WORDS 
WRFROM “BUS ADDRESS 
: STARTING ADDRESS OF DATA 
?BUFFER = WRFROM 
0 DO NOT TNATBTT BUS ADDRESS INCREMENT 
FMT22 716 BITS PER WORD FORMAT 
:DO NOT INHIBIT ECC CORRECTION 


3D0 NOT INHIBIT HEADER COMPARE 
WRIFOR ;GET READY TO DO A WRIFOR 
;WRITE HEADER AND DATA WITH 62 IN RHCS1 


iSAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATA 


SSR RO, a#SAVER sSAVE REGISTERS 
HW *RHWC IS THE FIRST REGISTER SAVED 
SAVERE :STARTING ADDRES OF WHERE 
; THE REGISTERS ARE SAVED 
18. NUMBER OF REGISTERS 
SAV ED = 18. 
JSR PC, JHCHECKT CHECK DVA,RDY,MOL, DPR, DRY, VV 


MOV QBRPYVEC ,ARPVEC ;SET wo ECTOR Abpres? 
O *TIME1’ IF P-CLOCK IS PRE 
$OR TO *TIME2’ IF P-CLOCK IS NOT "PRESENT 
;* TIME’ WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
SAND LOOK AHEAD REGISTERS 


MOY  . Q#WRIFOR,-(SP) ;GET READY TO MOVE COMMAND 
BIS. ¥GO'TE, (SP) GET READY TO SET GO AND 

; ENABLE INTERRUP 
MOV (SP)+, JRHCS1 


02 IN RHCS1 FOR WRITE HEADER AND DATA 








RPUB.P11 









ae 026316 



















82 

8268 026364 
8269 026370 
8270 026374 


026376 
026400 
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DE 


9242 026314 





T32 


011100 


011305 


104410 


00 
O02e 12 
003424 


004037 
1) 


002356 
004101 
001124 


001126 
004510 


010500 
001124 


001126 
004510 


034460 


O34460 


034460 
O34460 


034460 
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64S: 


668: 


STb: 
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;WITH INTERRUPT ENABLED 
MOV aR1, RO ;SPAVE RHCS1 DURING ABOVE OPERATION 
MOV aR3,R5 :SAVE RHOS1 DURING ABOVE OPERATION 


;ONE REVOLUTION = 16670 MICRO SECONDS, ONE SECTOR = 760 MICRO SEC. 
:MAX TIME ALLOWED = ONE REVOLUTION . SEEK + 2 SECTCRS 
MIN TIME ALLOWED = 2 SECTORS + SEEK 





;WAIT FOR RDY BIT TO SET 


RHCS1 sWAIT FOR RHCS1 REGISTER 

RDY ;WAIT FOR RDY BIT IN RHCS1 REGISTER 
. 1695. ALLOW 16950 MICRO a OS 

845. :RDOY MUST SET BETW 


?8500 AND 25400 MICRO SECONDS 
:COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
"RO AND RS IMMEDIATELY AFTER GO 
MOV JaWRIFOR,-(SP) ;SAVE COMMAND 
BIS HIE! GO!DVA (SP) : INCLUDE IE!GO!DVA 
SP), aeSGDDAT  :SAVE FOR 


MOV : PRINTOUT 

CMP P)+.RO ;DURING ABOVE OPERATION ONLY IE#GO!DVA 
:AND COMMAND SHOULD BE SET 

BEQ sé ;BRANCH IF GOOD 


MOV RO, J#S8DDAT TA 
MOV R1; J#REGADR FAILING REGISTER pia 
ERROR 21’ sDURT NG = E OPERATION ONLY 
“COMMAND AND IE!GO!DVA SHOULD BE SET 
MOV #MOL! DPR! VV, -(SP} TS SET DURING OPERATION IN RHDS1 


- SAVE 
MOV (SP). a#SGDDAT  ;SAVE FOR PRINTOUT 
CMP (SP)$,R5 s DURING BBOVE_ OPERATION ONLY MOL!DPR!VV 
BEQ 66S ; BRANCH IF GOOD 


MOV RS, d#SBDDAT DATA 

MOV R3, J#REGADR FAILING REGISTER RHDS1 

ERROR 63° ;DURING ABOVE OPERATION ONLY 
=MOL!DPR!VV SHOULD BE SET 


iNOW CHANGES SAVED REGISTERS SP tale — 


SSR RO, d&F 1LLRE VED 
RHWC SRvED REGISTER TO CHANGE 


JSR RO, J#F ILLSE "MOV WRFEROM+<266.*2> INTO SAVED RHBA 
HB : SAVED REGISTER TO CHANGE 
WRFROM+< 266. ¥2> ;DATA 


JSR RO, J#F ILLRE ;MOV_1 INTO SAVED RHCC 
_—~ ‘Sue REGISTER TO CHANGE 
JSR RO, J#F ILLRE ;MOV_1 INTO SAVED RHCA 
= s SAVED REGISTER TO CHANGE 


RO, J#F ILLRE HOV 1 INTO SAVED RHDST 
saved REGISTER TO CHANGE 


NS 


JSR 
wust 
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026504 
026504 


026510 
026514 


025516 
026520 


026554 
026560 
026562 
026564 


026566 


T32 


004037 


004737 


004037 


002000 
004037 


000090 
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035546 


034556 


034426 


os4402 


O34426 


O34426 
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ST?: 


ST8: 


ST9: 


ST10: 


ST1l: 


;COMPARE REGISTERS BEFORE WRITE HEADER AND DATA 
;WITH REGISTERS AFTER COMMAND 


JSR . RO, d#COMREG psa | SAVED REGISTERS WITH 


; RESEN Myo 
SAVERE :GOOD DATA SAVED IN *SAVERE’ 
we :TEST DATA STARTING FROM *RHWC’ 
18. 18. REGISTERS TO BE COMPARED 
ST? :RET TQ ST7 ON ERROR 
ST8 sRETURN URN TO STB ON NO ERROR 
pene g _;WRITE HEADER AND yy CAUSED. 


: IMPROPER REGISTER CHANGE 
; GOOD DATA GIVES HAT SHOULD BE 


RECEIVED DATA GIVES WHAT WAS BE 
THERE AFTER COMMAND 


;SETUP_TO READ HEADER. AND_DATA FOR NEXT TRACK 
FILL READ INTO BUFFER WITH ALL ONES 


JSR PC, J#CLDISK ‘age R1-RHCS1, + oe 


3-RHDS1, R4-RHERI 
'GIVE RH-11 INITIALIZE 
_ $SETUP UNIT NUBER 
JSR RO,d#CLAREA~ :CLEAR 260. WORDS FROM REINTO © 
REINTO ; STARTING FROM REINT 
260. WOR 
=] FILL WITH -1 


;FILL WRITE FROM BUFFER WITH EXPECTED DATA 


JSR RO, J#FLHEAD ;SAVE HEADER DATA oat WRF ROM 


WRFROM ; LOCATION WHERE SAV 
4 NUMBER OF WORDS SAVED 
10001 IFIRST DATA WORD 
0 ;SECOND DATA WORD 
0 :THIRD DATA WORD 
“FOURTH DATA WORD 
JSR RO, JHCLAREA CLEAR 2 WORDS FROM WRFROM+<4x2> 
WRFROM+<4%2> i RTING FROM WRFROM+<4x2> 
1*2000 FILL OF A 1*2000 
JSR RO, J#CLAREA CLEAR 254. allORDS, FROM WRFROM+<6%2> 
UF RON+ <2? fi woke TING FROM WRFROM+<6%2> 


WORDS 
sFILL WITH O 


;FILL COMMAND INTO REGISTERS 
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3 026 004 036532 JSR RO, J#RUN ;SETUP TO RUN FOR DATA COMMAND 
3 Popes pRARe’ 1 SRE YNDER | 
8355 025574 000 .BYTE 0 : SECTOR 
8355 026575 090 “BYTE 0 TRACK 0 — 
8357 026576 177374 -256.-4 ;WORD COUNT (DATA)=256.+ 
8353 ;4 HEADER WORDS 
8359 026600 0o03444 REINTO BUS ADDRES 
8360 ; STARTING RODRESS OF ‘DATA 
8361 | ‘BUFFER = REIN 
8362 O26602 900000 0 DO NOT INTE BUS ADDRESS. INCREMENT 
8363 O26604 014000 ECI!FMT22 +16 BITS PER WORD F 
£364 INHIBIT’ ECC CORRECTION 
8365 :DO NOT IN HIBIT HEADER COMPARE 
8366 026606 002362 REFOR GET READY O A REF 
S367 : READ READER OaND DATA WITH 72 IN RHCS1 
8369 
8370 a ;SAVE REGISTERS FOR COMPARISON AFTER READ HEADER 
9371 AND DATA : 
8372 O26610 004037 034716 tsR RO, J#SAVER : SAVE REGISTER S 
8373 026614 OO2210 RHIC ;RHWC IS THE FIRST REGISTER SAVED 
8374 O26616 O04S22 SAVERE “STARTING ADDRES OF WHERE 
8375 = THE REGISTERS ARE SAVED 
8375 026620 ocos20 ; te ?NUMBER OF REGISTERS 
8377 SAVED = 16. m 
8379 026622 004737 034636 ISR PC, JHCHECKT ;CHECK DVA,RDY, MOL, UPR, DRY, VV 
8381 
8382 O26626 013777 OCO4S16 153350 MOV DWRPYVEC, ORPVEC ;SET, RPOY VECTOR ADDRESS 
8383 : :TO ? TINE} IF P-CLOCK 1S PRESENT 
8384 :0R TO *TIME2’ IF P-CLOCK IS NOT PRESENT 
8385 :*TIME’ WILL ONLY SAVE 
8396 CURRENT CYLINDER ADDRESS 
9387 "AND LOOK AHEAD REGISTERS 
B36 
8390 026534 013746 002362 MOV QHREFOR,-(SP)  ;GET READY TO MOVE COMMAND 
8391 O26640 052716 OO0101 BIS #GO'IE, (SP) GET READY TO SET GO AND 
8392 | ENABLE INTERRUPT 
8393 026644 012677 153346 MOV (SP)+,3RHCS1 § :GO WITH 
8394 -72 IN RHCS1 FOR READ DATA 
- 8395 ;WITH INTERRUPT ENABLED 
8395 O26650 011100 MOV 9R1,RO ;SAVE RHCS1 DURING ABOVE OPERATION 
B97 026652 011305 MOV RS; RS :SAVE RHDS1 DURING ABOVE OPERATION 
8399 
8400 O26654 104410 WAT sMALT FOR RDY BIT 10. SET 
BYOL 026656 00221 RHCS1 ie FOR RHCS ihe 
8492 O26660 00020 RDY T FOR RDY N “Frcs! REGISTER 
8403 Oet6be 901614 308. ALLOW 3080. nto ONDS 
B404 O26EE4 001507 839. ik Y MUST SET BET vEEN 
8456 470 MICRO SECONDS 


8406 sCOMPARE CONTENTS OF RHcéi 68) AN 1 1 ALREADY SAVED IN 
RO AND RS IMMEDIATELY AFTER GO 
B408 O2S66E OC1274E 02362 hoy DSREFOR,-(SP)  :SAVE COMMAND 
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030 0 
B464 Oe70se Ce7036 STi4 ‘RETURN TQ ST14 ON ERROR 


DERFUS.! T3 
2403 S27 BIE'GO'DVA, (SP) s INCLUDE IE!GO! ova 
S415 Siig ($5) gescobat SAVE FOR PRINTS 
S413 S28702 022600 OMP (5p 4, ;DURING 8 ABOVE SPERATION ONLY IE!GO!DVA 
5413 Z COMMAND SHOULD SE SET 
S413 026704 001405 x seo gu :SRANGH IF GOOD 
S415 C2575¢ C1003? 901126 MOV FO, 24380087 SATA 
S4i5 Tie 810137 S64610 MOV 38REGADR FALL INe REGISTER RHCSi 
Siig Geerié 10402: FRROS 31" :DURIN foe estbie ood eae ee 
=: ie 4 fi iL f Se 
e038 ae8720 s1e7 38 235820 b-3; Hoy aMOL!DPR!VV, +(e! ave S173 Set aging OPERATION IN PHOS! 
? cet = Oi} 3° wwesd MOY ,a8 GDOAT 
Bu3d Bser3o | 52sb0s tee SERS BE ne ges ca NIBERATION ONLY MOLIDER! vy 
Be: 26732 pls se 9 oaks & we 
sis 525734 a4e38 001128 MOV eS ge38DDAT ‘Bac DATA 
S435 Eie7Sq «515537 OO4E12 NOV Ro) aBREGADR SFAILING R R RHOSL 
| S35 Geers 1O4DER ERROR 63 DURING eGove een on ONLY 
Seale e HOU! DPRIVY SHOULD SE SET 
S4=° Szer7ss 53: 
E<23 
3425 “CHANGE SAVED REGISTERS TO EXPECTED VALUES 
S430 OZET4E OONORT O344E0 }Se RO, s8F ILLR sMOV.O 1 INS SAVE RM, 
S43 deers O6z2I0 RHWC ;SAVED REG! seh TO RCHANGE 
| §432 336754 500900 : Q ‘DATA 
| §33 f2s75e O09057 ogyseo TSR —sRO, DAF ILLRE :MOV_REINTC+<260.#2> INTO SAVED RHEA 
B434 Se6762 02212 zo ;SAVED REGISTER TO CHA NGE 
B435 526764 04954 REINTO+: 260. #2) ATA 
S436 S2g7ée 504037 o244e0 ; JSR «RO Dw ILLRE 1 INTO SAVED RHDST 
8437 536772 902222 . . RHDST ‘SAVED REGISTER TO CHANGE 
gise C6774 SOC0C! 1 :DATA . 
S440 ;COMPARE REGISTERS BEFORE READ HEADER AND DATA WITH 
Fens REGISTERS AFTER COMMAND 
evs 026776 OO4037 cC3ss4e JSR RO, I8CCMREG : COMPARE SAVED REGISTERS WITH 
S445 27902 oo¥se2 - SAVERE G00D DATA SAVED IN 7SAVERE” 
B44 027004 OC2266 ic TEST DATA STARTING FROM ‘RHWC’ 
S447 O2700— O00dee 18. 218. REGIST ERS 10 BE COMPARED 
S44g 937019 927014 gTie RETURN TO STl2 ON ERROR 
et42 Ce7die Serdeo stis ERETURN TO S113 ON NO SEROR 
8451 027014 104031 ST12:. ERROR 31 ;PEAD HEADER AND DATA CAUSED 
S452 027016 00207 RTS. PC IMPROPER REGISTER CHANGE 
£453 :G00D DATA GIVES WHAT SHOULD 
ESS4 THERE 
345 TRECEIVED DATA GIVES WHAT 
34 | “WAS THERE AFTER COMMAND 
e457 READ INTO BUFFER IS CHECKED FOR PROPER READ 
ete 027020 ST12: 
) , “ 
B4E9 027020 004027 036576 - JSR RO, IBCOMPAR ;COMPARE TWO BLOCKS OF NENOR 
461 927324 o02400 WRFROM :G000 DATA STARTS FROM WRFROM 
Bugs C27026 003444 RE INTO sTEST DATA STARTS FROM REINTO 
S463 0270 5404 €0. :260. S TO BE COMPAR 


bem ce eae eee + ee . - ee ee ee 
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STL4: 


ST1S: 


ST1?: 


bt ieee sRETURN TO STIS ON NO ERROR 


RROR 32 ;WRITE HEADER AND DATA 
TS PC ‘ITH AN ste a SEEK 
: FOLLOWED an READ 
;HEADER AN ae ON THE 
:NEXT TRACK GAVE A 


;READ_ERROR 
ERROR MAY BE READ OR WRITE 
EE HAVE ADVANCED ONE CYLINDER SY AN IMPLIED 
HANGES WILL BE MADE TO ENABLE GOING TO THE NEXT 


CYLINDER AND THEN THE ABOVE WILL BE REPEATED 
prc ane 10 IS REACHED 


t STl+ 
800 #¢1.#2000>,asST2+10 
INC asST3+ 
ADD axl, se), aeST4+10 
INC aaSTS+4 
INC aeSTS+é 
INC aSTE+lé 
INC asST9+10 
ROD el. £2000», aaST10+10. 
INC aasTi 
DEC} 8=— ssa STMP COUNT FOR TEN TIMES 
BNE STl6é :BR ANCH IF 10 NOT DONE 
BR STi7 :10 COMPLETED SO CONTINUE 
JMP STl : JUMP AS 10 NOT DONE 
>THE HEADS ARE NOW ST CYLINDER 10 
8b vert 3 WILL BE SAVED AND A SEEK WILL BE GIVEN 


;FILL REGISTERS FOR A SEEK COMMAND 


JSR’. PC, asCLDISK SET Ri-RHCS1 R2-RHCS2 
:R3-RHDS!, RY-RHERL 
: GIVE Reed INITIALIZE 
“SETUP UNIT NUBER 


JSR RO, J8SEEKCY ;SEEK F 
0 SRILINDER 0 


- SAVE REGISTERS FOR COMPARISON AFTER SEEK COMMAND 
5h RO, JSAVER :SAVE REGISTERS 
RHWC *RHWC IS THE FIRST REGISTER SAVED 
SAVERE :STARTING BODRES OF WHERE 
!THE REGTSTERS ARE SAVED 
18. ‘NUMBER OF REGISTERS 
‘SAVED = 18. 


MOVs MRRPYVEC. DRPVEC : :SE7,RPON VECTOR AbORESS 











IF P-CLOCK IS PRESENT 
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DERPUBS.PL) 732 SEEK TEST 
8521 - ; 08 TO "TINE" IF P-CLOCK IS NOT PRESENT 
g5eg : tu L ONLY SAVE 
852 - ) ‘lat NT AIC INGER ADDRESS 
8534 - “AND LOOK AHEAD REGISTERS 
8527 O271$6 013746 002264 . MOV DeSEECOM,-(SP) GET READY 19 MOVE CoMMeND 
8528 Osri72 oS2718 90010; rs BGOFTE, (SP) :GET READY TO SET GO Ai 
329 pis : s ENABLE INTERRUPT 
8530 O2717& Ol2877 153014 MOV (SP}+, IRHCS1 $60 WITH 
§531 : IN RHCS1 FOR SEEK 
sso | shitta INTERRUPT ENABLED 
8533 027202 611100 MOV aR, RO :SAVE RHCS1 DURING ABOVE OPERATION 
8534 Oe7sa4 611305 MOV aR3 : SAVE RHDS! DURING ABOVE OPERATION 
3 ;SEEK FOR Be CYLINDER=7MILI SEC., FOR TEN=70 MILT SEC 
= 
8537 o27206 104410 WAT sWAIT FOR DRY BIT TO SET 
8538 O27210 oo2240 RHDS1 ‘WAIT FOR RHDS1 REGISTER 
85329 O272l2 909209 DRY :WAIT FOR DRY BIT IN HDS REGISTER 
85490 937514 oO15530 7000. ALLOW oRobe MICRO SECONDS 
8541 27216 o00043 35. sDRY MUST SET BETWEEN 
9542 69650 AND 70350 MICRO SECONDS 
9543 | :COMPARE CONTENTS OF oF pace] AND RHDS1 ALREADY SAVED IN 
8545 RO AND RS IMMEDIATELY AFTER GO 
8545 27220 O1374 902364 hav JRSEECOM,-(SP) ;SAVE COMMAND 
B546 de7ee4 052716 004301 BIS Be) aecbOnT "sh ~INCLUDE CVA!GO! IE! RDY 
8547 027230 011637 001124 MOV sSGODAT : SAVE FOR PRI 
8548 027234 022600 CMP 2P)tR :DURING ABOVE OPERATION ONLY DVAIGO!ITE!RDY 
5545 :AND COMMAND SHOULD BE SET 
8550 027236 001405 BEQ 64S SBRANCH IF GOOD 
8551 027240 910037 o01126 MOV RO, J#SBDDAT ATA 
S552 627244 015137 oo4si0 MOV Ri’ JBREGADR :FAILING REGISTER RHCS! 

8553 527250 104021 ERROR 21 ; DURING ABOVE OPERATION ONLY 

8554 s COMMAND AND DVA'GO!TE'RDY SHOULD BE SET 
e555 oe72S2 O12746 030500 S48: MOV aPIPIMOL DPR!VV,-(SP).  ;SAVE grTS SET DURING OPERATION IN RHOSL 
g55¢ 02765 011637 O011e4 MOV (SP) aged ;SAVE FOR PRINT 

a 027262 d22605 CMP (SP P)d Re sUR Ing ABOVE OPERATION ONLY PIP!MOL!DPRIVY 
S555 927264 o01405 BEQ 6S ; BRANCH IF GOOD 

8560 927266 010537 001126 MOV RS, J8SBDDAT “BAD SATA 

e561 027272 010337 004510 MOV R32, JHREGADR ‘FAILING REGISTER RHDS1 

8555 Oe7276 104063 ERROR 63 :DURING ABOVE OPERATION ONLY 

8563 :PIP'MOL!DPRIVV SHOULD BE SET 

Se 027360 ES: 

BEEE :NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 

6567 027300 004037 034460 . SSR RO, J8F ILLRE sMOV_O INTO SAVED RHCC 

8568 627304 o0e252 RHCC : SAV ED REGISTER T0 CHANGE 

e563 02730¢ oo0d0ad 0 : DATA 

8571 627310 053737 oO4e6S50 cO4sHeE BIS JBATTENT, J#SAVERE+24 SET APPROPIATE ATA BITS 

8575 FOR WORKING DRIVE IN 

ge23 :SAVED RHAS LCACTION 


8575 027316 004027 O3S440 - JSR RO, J8CHREG ;CHANGE BITS IN SAVED REGISTER 
6576 Oe73e2e 002240 RHDS 1 , ;CHANGE RHDS1 REGISTER 
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SEEK 

73 927324 000001 ! :LBIT/BITS 10 BE CHANGED 

73 027326 000001 1 !NEW VALUE OF ATA IS 1 
8590 027330 100000 Ata ‘CHANGE ATA BIT 
8582 O27332 004037 O35440 JSR RO, J8CHREG sCHANGE BITS IN SAVED REGISTER 
S383 027336 O02216 RHCS1 :CHANGE RHCS1 REGISTER 
8585 927340 000001 l :1 BIT/BITS TO BE CHANGED 
8596 Oe73s42 90000: 1 ‘NEW VALUE OF SC IS 1 
B58: 027344 100960 Sc :CHANGE SC BIT 
583 COMPARE REGISTERS AFTER A SEEK COMMAND 
e531 027346 004037 o3ss4s ISR RO, JaCOMREG ; COMPARE act: REGISTERS WITH 
8583 27352 o04Se2 SAVERE a 8 VED IN 'SAVERE’ 
8594 9273545 02266 We Date as TING FROM RHC’ 
8595 027356 o0002e2 18. REGISTERS TO BE COMPARED 
8596 027360 027364 STi SE TU RN TO ST18 ON ERROR 
g537 027362 027370 5719 !RETURN TO ST19 ON NO ERROR 
8598 027364 104037 ST18: ERROR 37 ;SEEK COMMAND CAUSED AN 
8605 027366 00207 RTS PC ERROR 
9601 ; G000 DATA GIVES WHAT SHOULD 
8602 THERE 
8603 PRECEIVED DATA GIVES WHAT WAS 
B50 THERE AFTER A SEEK COMMAND 
8605 “AT THIS POINT THE CURRENT CYLINDER IS GOOD AND THERE ARE 
8607 =NO ERROR 
8608 A READ HEADER AND DATA WILL BE DONE ON CYLINDER 0 
$503 ite Ts 21 TRACK 18, EXPECTED DATA IS 1125 
9611 “CLEAR READ INTO BUFFER WITH ALL ONES 
8812 027370 ST19: 
8513 027270 OO4037 O34426 ISR RO, J#CLAREA CLEAR 260. WORDS, FROM REINTO 
2614 027374 803444 REINTO : STARTING FROM RE{NTC 
8615 627276 Oco4o4 260. WORDS 
Bb1b 027400 177777 -! FILL WITH -1 
e618 sFILL WRITE FROM BUFFER WITH EXPECTED DATA 
8620 Oe7402 O04037 034402 JSR RO, J¥FLHEAD ;SAVE HEADER DATA IN WRFROM 
8621 Se7406 02400 WRFROM :LOCATION WHERE SAVED 
8652 927410 Oood0o4 4 : NUMBER OF aHORDS SAVED 
B623 Oe74l2 010000 10000 FIRST DAT 
8624 27414 011025 (18.#400>!<21.> TTECOND DATA WORD 
8625 Oe7416 90059 9 THIRD DATA WORD 

| 8626 027420 c000 0 sFOURTH DATA WORD 

8627 Oe74¥22 904037 034426 JSR RO, JBCLAREA CLEAR 10, WORDS, FROM WRFROM+<4. ¥2> 
8628 027426 902410 WREROM+<4. 2> -STARTING FROM WRFROM+<4. #2> 
8623 027430 O0dole 10. :10. WORDS 
8630 Oe7432 001125 (18. #40) !<21.> FILL WITH <19.240>!<21.> 


C632 027434 OCO4037 O34426 JSR RO, J#CLAREA ;CLEAR 246. WORDS, FROM WRFROM+< 24. #2> 
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027540 


T32 


p02434 
000366 
tee 


004037 
000000 


0° 
Qe2 


17772 
003444 


000200 
014000 


C236e 


004737 


013777 





SEEK 


036532 


034636 


CO4S16 


002362 
000101 


152500 


036576 


MACYI1 27(732) 
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- BYTE 
BYTE 





WREROM+< 14, #2) “STARTING FROM WRFROM+< 14, #2) 
O46. :246. WORDS 
=| ‘FILL ith -1 


;FILL READ HEADER AND DATA COMMAND FOR 10 WORDS 

JSR RO, J#RUN ;SETUP_ TO RUN FOR DATA COMMAND 
C CYLINDER O 

él. SECTOR 1. 


18. TRACK 19. 
-10.-4 :WORD COUNT (DATA}=10.+ 
‘4 HEADER WORDS 


REINTO DORESS 

; STARTING cons 3s OF DATA 

:BUFFER = REINT 
0 :D0 NOT INHIBIT BUS ADDRESS eer ‘ENT 
ECI!FMT22 316 BITS PER WORD FORM 


p INHIBIT ECC_CORRECTION 
:D0_NOT INHIBIT HEADER COMPARE 
REFOR GET EADY TO DO AR 
;READ HEADER AND DATA WITH 72 IN RHCS1 


ISR PC, J#CHECKT ;CHECK DVA,RDY,MOL, DPR, DRY, VV 


~ MOV DBRPHVEC,AIRPVEC ;SET aa VECTOR ADDRESS 


19 * TIME1’ IF P-CLOCK IS PRESENT 

;0R TO “Time IF P-CLOCK IS NOT PRESENT 
= * WILL ONLY SAVE 

CURRENT CYLINDER ADDRESS 

AND LOOK AHEAD REGISTERS 


MOV D#REFOR,-(SP) sGET T READY TO MOVE COMMAND 
BIS #GOFTIE, (SP) ADY TO SET GC AND 
 FRABLE INTERRUPT 
MOV (SP)+, IRHCS! 360. W Hy 
72 IN RHCS1 FOR READ DATA 
:wita INTERRUPT ENABLED 


WAT ;WAIT FOR RDY BIT TO SET 

RHCS1 sWATT FOR RHCS1 REGISTER 

ROY !WAIT FOR ROY BIT IN RHCS1° REGISTER 
908. SALLOW $080 MICRO SECONDS 

839. :RDY MUST SET 


ETWEEN 
3690 AND 17470 MICRO SECONDS 
;CHECK READ WORDS 


JSR RO, a#COMPAR s COMPARE TWO te of MEMORY 
WRF ROM _ 76000 D RTS FROM _WRFROM 
REINTO TEST DATA STARTS FROR REINTO 


260. 3260. WORDS TO BE COMPARED 
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027542 
027544 


027546 
027550 


027552 





027546 
0275Se 


104032 
000207 
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;RETURN TO ST26 ON ERROR 
sRETURN TO ST27 ON NO ERROR 


;READ HEADER AND DATA 
SFOLLOWING A SEEK TO yee 0 
sEROM. CYLINDER 10 GAVE A 
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8701 5 RAREAAA AERA REALL E AERA ALAA LAER REE RELL ER ERAEELE REE E RARER EL ERE 
8708 ;eTEST 33 SEEK TEST 
é 
704 + THIS TEST DEPENDS ON HEADER AND DATA WRITTEN SY THE 
705 1 PREVIOUS TEST. AT THIS POINT THE HEADS ARE ON k: 
97 # CYLINDER 0 ) 
8707 .e a 
8708 ;# ALL REGISTERS ARE SAVED ‘ 
8709 :* A he: 18 GIVEN Poa 
8710 1% EGTSTERS ARE CHECKE 0 INPROPER CHANGE 
g7il ;# DATA HRITIEN ON CYLINOER 9 15 CHECKE 
§71 b  eunenuauesgunssnnosevesotnes cnombasatessnaponssonanenseunanned 
8713 027552 900004 tST33: SCOPE 
8714 27554 012706 001000 HOV = saSTA ;RESET_STACK 
Geis Oe7Sb0 Ole737 OCI033 004514 MOV #33, Sats ;SAVE TEST NUMBER 
8717 27566 004737 O34556 JSR PC, @CLDISK ——; SET_RA-RHCS1, _RE-RHCS2 
8718 ;R3-RHDS1 ERI 
8719 ;GIVE an INITIALIZE 
8700 ;SETUP UNIT NUSER 
8721 sTHIS GETS HEADS TO CYLINDER O 
8722 027572 013777 OO4S16 152404 HOV” = BRPYVEC, ARPVEC SET RPO VECTOR ADDRESS 
8723 310 *TIME1’ I” P-CLOCK IS PRESENT 
8724 30R TO TIME?’ IF P-CLOCK IS NOT PRESENT 
725 "TIME? WILL ONLY SAVE 
8726 ;CURRENT CYLINDER ADDRESS 
8727 SAND LOOK AHEAD REGISTERS 












8728 
8729 027600 013746 092340 MOV OaRECALT -(SP) ;GET READY TO MOVE COMMAND 

8730 O27604 O52716 O00101 BIS » (SP) :GET READY TO SET GO AND 

8731 a sENAGLE INTERRUPT 

8732 027610 012677 152402 MOV et #60 W TH 

8733 IN RHCS1 FOR RECAL IBRATE 

8734 . sAtTH IN NTERRUPT 

8735 027614 011100 MOV JR1,RO : SAVE ANtEF DURING ABOVE OPERATION 
8736 027616 011305 MOV JR3,RS *SAVE RHDS1 DURING ABOVE OPERATION 















8738 027520 104410 my T FOR ORY BIT TO SET 
8739 Oe7b2e2e O02240 RHDS1 MAiT FOR HOS! REGISTER 
8740 927624 O00200 DRY :WAIT FOR DRY BIT IN RHDS1 REGISTER 
8741 027626 976377 31999. ALLOW 319990 MICRO SECONDS 
8742 027630 056701 24001: ‘DRY MUST SET BETWEEN 
8743 79980 AND 560009 MICRO SECONDS 
gm ;FILL REGISTERS FOR A setk COMMAND 
8746 027632 OO4037 O24S26 ISR RO, J¥SEEKCY :SEEK FOR 

_ 8747 027636 o00012 10. -CYLINDER 10. 







8749 ;SAVE REGISTERS FOR COMPARISON AFTER SEEK COMMAND 

8750 027640 004037 034716 JSR RO, d#SAVER ; SAVE ye a, 

8751 027644 002210 RHWC :RHWC_IS THE FIRST WeSISTER SAVED 
8752 Oe7b46 O004Se2e SAVERE STARTING ADDRES OF WHERE 






8753 THE REGISTERS ARE SAVED 
027650 000022 ; 18. bie Fg eesTERS e 
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8757 O276S2 O13777 OOYSI6 152324 


8765 Oe7660 013746 002364 
8756 Oe7664 OS2716 C0010! 


6768 027670 Jles77 1Se322 


027674 
027576 





Ol 
oc0d43 


Q1374E 9002364 . 
052716 004301 
011637 OO011e4 
022600 


001 

010937 O01i26 
010137 004510 
104021 


012746 030500 — 
011637 OO01124. 
022605 


010537 001126 
010337 004510 
‘104063 


004037 O34460 - 
002252 
00001e 


053737 OO4650 OO4S4E 





678: 
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MOV 


MOV 
BIS 


MOV 


MOV 
MOV 


;SEEK FOR ONE CYLINDER=7 MILI SEC., FOR TEN=70 MILI SEC 


WAT ;WAIT FOR DRY BIT TO SET 
RHDS1 :WAIT FOR RHDS1 REGISTER 
DRY :WAIT FOR DRY BIT IN RHDS1 REGISTER 
7000. . TALLOW 70000 MICRO SECONDS 
35. sDRY MUST SET BETWEEN 
*69650 AND 70350 MICRO SECONDS 
;COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREACY SAVED IN 
*RQ AND RS IMMEDIATELY AFTER GO 
Mov #SEECOM,-(SP) -SAVE COMMAND 
BIS #DVA!GO! TEI RDY, (SP) “INCLUDE DVA!GO! IE!RDY 
MOV (SP), a¥SGDDAT © ; SAVE FOR PRINT 
CMP (5P)+,R0 ;DURING ABOVE OPERATION ONLY DVA!GO! IE!ROY 
:AND COMMAND SHOULD BE SET ( 
BEQ 675 ‘BRANCH IF GOOD » — 
MOV RO, J#SBDDAT :BAD DATA } 
MOV R1; J#REGADR ‘FAILING REGISTER RHCS1. oS 
ERROR 21 “DURING ABOVE OPERA ION ONLY 
:COMMAND AND DVA!GO!TE!RDY SHOULD BE SET 
MOV #PIP!MOL!DPR! VV, -(SP) SAVE BITS SET DURING OPERATION IN RHDS1 
MOV (SP) a8SGDDAT °;SAVE FOR PRINTOUT 
CMP (SP)+,R5 s DURING ABOVE OPERATION ONLY PIP!MOL!DPR! VY 
BEQ 69S *BRANCH IF GOOD 
MOV RS, J#SBDDAT “BAD DATA : 
MOV R3, JWREGADR ?FAILING REGISTER RHDS!  - 
ERROR 63° :DURING ABOVE OPERATION ONLY 


“NOW CHANGE SAVED REGISTERS TO Bree Te VALUE 
:MOV 10. INTO SAVED RHCC 


Js R 
ag 


BIS 





JBRPYVEC , IRPVEC 


DHSEECOM, -(SP) 
#GOrTE, (SP) 


(SP)+,JRHCS1 ns WITH 


@R1,RO 
aR3,R5 


RO, d#F ILLRE 


Q#ATTENT, J#SAVERE+24 PER APPROPIATE 8 ATA BITS 









sSET RPOY ed weet 
108 TP Anes! eB tLoc 


S 
OCK 
"TIME E ONLY 
CURRENT NOYCINOER RODRESS 
AND LOOK AHEAD REGISTERS 


PRESENT 
IS NOT PRESENT 





;GET READY TO MOVE COMMAND 
GET READY TO SET GO AND 
‘oo ath INTERRUPT 


HCS1 R SEEK 
Atth IRiFRAUPS BLED - 

:SAVE RHCS1 BORING ABOVE OPERATION 
SAVE RHDS! DURING ABOVE OPERATION 
























NG 
:PIP!MOL!DPR!VV SHOULD BE SET 










BOVE VED REGISTER TO CHANGE 









WORKING DRIVE IN 
SAVED RHAS LOACTION 
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030010 O004037 035440 JSR RO, J8CHREG ;CHANGE BITS IN SAVED REGISTER 
039014 O02e40 RHDS1 : CHANGE RHDS1 REGISTER 


out BEE Re eR URUS PR SET 
030022 100000 ;CHANGE ATA BIT 


030024 004037 O35440 JSR RO, J&#CHREG ;CHANGE BITS IN SAVED REGISTER 
030030 02216 : 1 ;CHANGE RHCS1 REGISTER 


30032 00001 —— 1 BIT/BITS TO BE CHANGED 
630034 00021 1 NEL VALUE OF Se IS 1 
030036 109000 ?CHANGE SC BI 


;COMPARE REGISTERS AFTER A SEEK COMMAND 


004037 O35S46 JSR RO, J#COMREG PRESENT TALE REGISTERS WITH 
SAVERE :G00D DATA SAVED IN * SAVERE’ 
We TEST DATA STARTING FROM —a 
. ;18. REGISTERS TO ES COMPARED 
0300 RETURN TO I$ ON ERR 
030054 030062 ' RETURN TO 23 ON NO ERROR 


030058 104037 : ERROR 37 ;SEEK COMMAND CAUSED 
030060 000207 RTS PC ; 
3 GOOD DATA GIVES WHAT SHOULD 


REC EIVED DATA GIVES WHAT WAS 
: THERE AFTER A SEEK COMMAND 


3AT Te Bios THE CURRENT CYLINDER IS GOOD AND THERE ARE 


; AD HEADER AND DATA WILL BE DONE ON CYLINDER 9 
sSeCTOR 1_ TRACK 18, EXPECTED DATA IS 23125 


;FOR 2 aR 
;CLEAR READ INTO BUFFER WITH ALL ONES 


030062 


030062 094737 O34SS6 JSR PC, J¥CLDISK :SET RI-RHCSL, R2-RHCS2 
rn :R3-RHDS1, R4-RHERL 
‘Give aL INITIALIZE 
0320066 004037 O34426 JSR RO, J#CLAREA ‘CLEAR 260. WORDS, FROM REINTO 
003444 REINTO ; STARTING FROM REINTO 
o00404 0. 0. WORDS 
Ban07e 177777 =] PFILL WITH -1 


;FILL WRITE FROM BUFFER WITH EXPECTED DATA 


030100 004037 034402 JSR RO, J#F LHEAD ; SAVE HEADER DATA IN WRFROM 
0 tiie OM geet WHERE SAVED 
NUMBER OF WORDS SAVED 
930110 O! too11 {FIRST DATA WORD 
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(18. ¥400>!<21.> “SECOND DATA WORD 
:TH HI RD pata WORD 
‘FOURTH DATA WORD 
‘ CLEAR 20. WORDS, FROM WRFROM+<4. #2> 


034426 ISR RO, J¥CLAREA 
WRFROM+<4, ¥2) TARTING FROM WRFROM+<4. #2> 
520. wor’ 


€9. ¥2000) $< 18. #40) !<21.> sFILL WITH ¢9.#2000>!<18. #40>!#<2 
034426 JSR RO, J#CLAREA ;CLEAR 250. WORDS, FROM WRFROM+<24. *2> 
WRFROM+< 24: ¥2) “STARTING FROM WRFROM+<24. #2) 
250. 250. WORDS 
=] ‘FILL WITH -1 
FILL READ HEADER AND DATA COMMAND FOR 10 WORDS 
004037 036532 JSR RO, #RUN ;SETUP TO RUN FOR DATA COMMAND 
900011 3. :CYLINDER 9. 
025 : ‘SECTOR el. 
O22 : s TRACK 18. 
030154 177750 : : WORD counT (DATA) =20. + 
;4 HEADER WORDS 
0301568 003444 REINTO ADDRESS 
: STARTING RODRESS OF DATA 
= ‘BUFFER = REINT 
030160 oo0000 5. DO NOT INHIBIT BUS ADDRESS INCREMENT 
030162 914000 ECI!FMT2e2 °16 BITS PER WORD FORMAT 
INHIBIT’ bec CORRECTION 
DO NOT INHIBIT T HEADER C COMPARE 


030164 002362 REFOR GET READY 
: READ AEADER Ooo DATA ORTH 72 IN RHCS1 


030166 004737 034636 JSR PC, J&CHECKT ;CHECK DVA,RDY,MOL,DPR, DRY, VV 


030172 013777 OO04S16 152004 MOV O#RPYVEC,AIRPVEC ; sSET RPOY VECTOR ADDRESS 
;10 mre tN IF P-CLOCK IS PRESENT 
; eg eC P-CLOCK IS NOT PRESENT 
: , L_ONLY SAVE 
j CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


013746 002362 Q#REFOR,-(SP) ;GET READY TO MOVE COMMAND 
0S2716 000101 HGO!TE, (SP) GET READY TO SET GO AN D 
Sonat INTERRUPT 


012677 152002 ~ (SP)+, IRHCS1 
RHCS1 FOR READ DATA 
suit INTERRUPT. ENABLED 


pote 104410 WAT ;WAIT FOR RDY ae ser 


ALLOW 3080" MICRO SECONDS 



















MACY11 27(732) 
SEEK TEST 2 


Sse5 030224 oC1s07 ~ 939. sRDY MUST SET BETWEEN 
gq26 '690 AND 17470 MICRO SECONDS 
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DERFUB.P11 T33 re 















83 ;CHECK READ WORDS 

Bas 030226 004037 036576 JSR RO, d#COMPAR ; COMPARE BLOCKS OF en a 
8931 030232 O0e400 WRF ROM ; GOOD DATA STARTS FROM_WRFROM 
8932 030234 O0S444 REINTO TEST DATA STARTS fas wa 
8933 030236 O00404 260. 260. WORDS TO BE COMPARED 
8925 O30e4 930244 3$ RETURN TO 3$ 

BaP O30e42 030250 : 4$ ;RETURN TO 4$ ON NO ERROR 

8937 

8938 030244 104032 3$: ERROR 32 ;READ HEADER AND DATA 

8939 030246 000207 RTS PC on evel A_SEEK TO CYLINDER 9 
on iE ‘a CYLINDER O SAVE AN 

8342 030250 

8943 

8344 

8945 

8946 

8947 
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Oem ge ap nt «Sareea: 
¥TEST 34 WRITE CHECK HEADER AND DATA 


WRITE CHECK eg AND DATA CYLINDER S FORMAT 16 BITS PER WORD 
» KEYS O, NUMBER OF WORDS 266 


8s i (6 BITS FOR CYL, 5 FOR TRACK, 5S FOR SECTOR) 


ay 
oF 052525 

5 OF 125252 
16 WORDS OF LEFT ROTATING ZERO (EG 177776,177775) 
16 WORDS S OF LEFT ROTATING ONE (EG 1,2,4, 10) 
174 WORDS OF 377 
4 WoRbe OF HEADER 
2 WORDS OF 12345 


SaT8 COND DATA IS WRITTEN BY A WRITE HEADER AND 

CHECK FOR NO ERRORS 

SHEN ABOVE DATA IS READ BY A READ HEADER AND DATA 
THEN THE ABOVE WRITE CHECK HEADER AND DATA IS GIVEN 

Meet re iittiiiceee errr et ieiiritiri reer retest re 

030250 tST34: SCOPE 

030252 001000 MOV #STACK, SP sRESET STACK 

030256 012737 000034 oo4S14 MOV #34, J8TSTNM :SAVE TEST NUMBER 


030264 004737 oO34556 JSR PC, J#CI DISK ;SET RI-RHCS1, R2-RHCS2 
R3-RHDS1, RY-RHERI 
:GIVE Reet INITIALIZE 
SETUP UNIT NUBER 
;GET HEADS TO CYLINDER S’ 


030270 004037 034526 JSR RO, J#SEEKCY iQEEK F 
030274 000005 LINDER S 
030276 913777 OO4S1I6 151700 MOV O#RPYVEC , IRPVEC SET aa VECTOR ADDRESS 
370 *TIME1’ IF P-CLOCK IS PRESENT 
ceo IS NOT PRESENT 


ee ee ee re ee ee ee re re ie te te ee Te Tt 


eo De ak ie iC OK 2c DC DC ie Dk iC De Me ke Oke Di ie De ee 


SAND LOOK AHEAD REGISTERS 


030304 013746 002364 QUSEECOM,-(SP) ;GET READY TO MOVE COMMAND 
030310 000101 #GO!TE, (SP) GET READY TO SET GO AND 
:; ‘ENABLE INTERRUPT 
030314 151676 (SP)+,ORHCS1 G0 WITH 
” -4 IN RHCS1 FOR SEEK 

ae :WITH INTERRUPT ENABLED 
0320320 JR1,RO :SAVE RHCS1 DURING ABOVE OPERATION 
030322 , JR3,RS SAVE RHDS1 DURING ABOVE OPERATION 


030324 WAT ;WAIT FOR DRY BIT TO SET 
030326 ;WAIT FOR RHDS1 REGISTER 





Sanne oes 
DERPUB.P11 T34 


030336 004737 


904037 


3022 030360 000000 


9026 030362 
030366 
$028 030370 
039372 


30 
ats2 ae 


012344 


rani 
002434 
000012 
177777 


004037 
030412 cates 
00001 

000000 


004037 


030430 


030432 
9047 030436 
030440 
030442 


0S252e5 
004037 


S069 935470 dos30s 
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WRITE CHECK HEADER AND DATA 


ate Gs0ss2 Oisss0 
9007 030334 O00043 | 


034556 


034402 


034426 


034426 


034426 


034426 


034-426 


002554 


B00. 
3s. 


JSR ——-PC, BNCLDISK 


;WAIT FOR DRY BIT IN RHOS1 REGISTER 
ALLOW 70000 MICRO SECONDS 

sDRY MUST SET BETWEEN 

:69650 AND 70350 MICRO SECONDS 


;FILL WRITE FROM BUFFER Sp HEA ate 


JSR RO, J#FLHEAD 
‘th OM 


e005 
halal 
0 


;SAVE HEADER DATA IN WRFROM 
sh E SAV Me 


[=] 
oO 
D 
+ 
oS 
A= A~ 
= 
m 
a 
w 


-S 
; THIRD DATA WORD 
*FOURTH DATA WORD 


310 WORDS OF OF THE FOLLOWING DATA 
; 12344, gaa 0, 52525, 1eSeSe 


SR a#cLAREA 
WRFROM+< ie res 
<S*2000) ! (7#40) 24 


JSR RO, J#CLAREA 
HP ROMe< 14. . #2) 


aa | 


JSR RO, J#eCLAREA 
URFROM< 24. ¥2> 


JSR RO, d#CLAREA 
WRFROM+< 34: ¥2> 


10. 
ebé25 


JSR RO, J#CLAREA 
URFRON+ <4. #2) 


— —-——— ——_ - __-_ oe 


: CLEAR 10. HORDS FROM WRFROM+<4%*2> 
ian aio’ RTING FROM WRFROM+<4x2> 


sFILL WITH <S¥2000>!<7%40>!4 


;CLEQR 10. WORDS, FROM WRFROM+< 14. x2> 
“STARTING FROM WRFROM+<14. ¥2> 


310. WORDS 
;FILL WITH -1 


: CLEAR 10. HRD FROM WREROM+<24. ¥2> 
16, RTING FROM WRFROM+<24. #2) 


:FILL AuETH 0 


: CLEAR 10. 7oRos FROM WRFROM+< 34. x2> 
TING FROM WRFROM+< 34. ¥2> 


320. WOR 2" 
:FILL WITH S2525 


: CLEAR 10, Hons FROM WRFROM+<44. ¥2> 
RTING FROM WRFROM+<44. >> 


;10. 
SFILL WITH 125252 


{déas2 
-FILL LEFT ROTATING ZEROS EROM WREROM+<S4. ¥2> 
Mov 1,-(SP : Rl ON STACK 
MOV #177776, RO bare 
MOV #16 
Hoy sunFecn+<SH. *2>, vee UIHERE DATA GOES 

¢ MOV «RO, (RLD4 :STORE DAT 
ROL RO : GET ZERO BNE BIT LEFT 
DEC RS :COUNT 16 


PAs lbs ok hi aa taal 


MSIN 





33 


0+ =O b= bod = 0-8 0 b= = 2 be CO 


ey Se ey ey ee ny rt on | Ge | oe 


(mon £tofue-O.00 Oe RES 8 


60.0.000.00..0.00000.000.000 OW ow 


fot <i! 
Oe et 


DEREUB.P 


| bawdy, -§ 


030472 


aur 


530566 


030570 


T34 


177405 
094037 
960905 

O04 


007 
177266 


CO24C0 


900009 
210000 


002356 


aoe AND gr TA 
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BNE s-18 sBRANCH IF 1S NOT DONE 
SFILL LEFT ROTATING ONE INTO WRFROM#<6S. #2> 
mov 31,R0 

MoV «ROLURL¢ 

ne 

MOV CSPU4,RI +:POP STACK INTO 81 


peat REST OF DATA 


RO, asCLaREA ;CLEAR 174, ane? FROM WRFROM?< 98. #2. 


aFRONe B6' #2) STARTING FROM WRFROM+: 86. 42 
74, i174 WORDS 

377 FILL WITH 377 

15% aaF LHEAD ;SAVE HEADER apATR IN aRFROMS: 260. #2) 

varnome<cebes . ae ATION. HEE SAVED 

4 :NUMBER OF WORDS S 

10005 SFIRST DATA WO 

s7#900) 15 ECOND DATA WORD 

0 


s THIRD pata’: WORD 
FOURTH DATA WORD 
TaCLAREA ALEAR 2 WORDS FROM WREROM+< 264. 2) 

Jer Rome< sea #2) t 
32 WORDS’ 


fu 


;READ INTO SUFFER WILL BE CLEARED 


SSR RO, J8CLAREA “CLEAR 268. WORDS FROM REINTO 
REINTO 3ST ARTING FROM REtNTO 

266. 366. WORDS 

177400 FILL WITH L774 


:THE WRITE HEADER AND DATA COMMAND WILL BE LOADED 


“ISR RO, d8RUN :SETUP TC RUN FOR DATA COMMAND 
5 :CYLINDER § 
= SECTOR 4 
? TRACK 7 
-262.-4 »WORD COUNT (DATA) =262.+ 
:4 HEADER WORDS 
WRFROM :BUS ADOR 


iB EEER mporess OF DATA 


BUFFER 
0 :00 NOT INHIBIT BUS RODRESS INCREMENT 
FNT22 if BITS FE PER W WOR : FORMA 
: T INHIBIT ECC CORRECTION 
$00 NOT INHIBIT HERDER COMPARE 
WRIFOR READY TO DO 8 WRIFOR 
WRITE ubsbee AND DATA NITH $2 IN RHCS1 


NG FFOM WRFROM+< 264. #2> 
(#2000) $< 7#40)!9S sFILL WITH <S#2000>!8<7e4o 9s 








>: 

ni 
Ades 
“0 2. 


si 
0308 


030622 


weer uta) oo o-~ — 
WLUOe-C>.000 3 tar 7 


030624 


murs 
me lvilis ber liall 


030630 


fOr DEO NOTE GT Cube SOPOT E Gai COD eT oroe ne 


0307 1e 


030714 
030720 


> = 0+ 0 <0 6+ b <0 +b + 0+ 0+ 0 b+ & +b + bh -< 2 b+ 0+ 0-2 2 2 9 2 0-8 0-2 0 8 0 -= 0 Ob © 0-2 8 b-bd dd 8b hd <0 +h -9 > --p- 2 § -p-o & =p -2 


SNNO OOo oo 


DROOL DD DOWD DDO OOO DPD OWN OND OOOO OOO OP OO Meh OOOO D.O 0D. OOD HOO 
MeO WONMO UE to 


Ghee ai 
o00022 
094737 


0 013777 


004037 


O34716 


034836 


004516 


002355 
000101 


151344 


O34450 


00 
034480 


034460 


O3S54e 


o04se2 é 


aiclebace 


iS1346 


note AND “bara 
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;NOW SAVE REGISTER: FOR COMPARISON AFTER WRITE HEADER AND DATA 


ee de sai IRE TEthe Plast resister SAVED 
— She pete BORE ER Avene 
18. 'NUMBER OF REGISTERS 

ISAVED = 18. 


JSR PC, aaCHECKT.. ;CHECK DVA,RDY,MOL,DPR,ORY, VV 


MOV OSRPYVEC IRPVEC ; eT, sees etree orn t 


:*TIME’ WILL ONLY 
!CURRENT CYLINDER ADDRESS 
SAND LOOK AHEAD REGISTERS 


MOV DBWRIFOR,-(SP) ;GET REGDY TO MOVE conan 
BIS aGO'le, (SP) :GET READY TO SET GO AND 

; ENABLE INTERRUPT 
MOV (SP)+, IRHCS! 369 4 TH 


2"IN RHCS1 FOR WRITE HEADER AND DAT 
hit INTERRUPT ENABLED 


WAT 5 ;WAIT FOR ROY BIT TO SET 


RHCS1 “WAIT FOR RHCS1 REGIST 
OY *WAIT FOR RDY BIT IN RHCS! REGISTER 
986 SALLOW 9860 MICRO SECO 

834 sROY MUST SET SE TWEEN 

1520 AND 19200 MICRO SECONDS 

- NOW CHANGE ASAVED pESISTERS TO EXPECTED VALUES 
iF J8F ILLRE sMOV 9 INTO SAVED RHWC 
RH i S8vE REGISTER TO CHANGE 

JSR RO, JF ILLRE “MOV WRFROM+<266. #2) Rue SAVED RHSA 

:SAVED REGISTER TO CHANGE 

WRFROM+< 266. #2> “DATA 

JSR RO, JeFILLRE 3406 INTO SAVED RHDST 

RHOST Saved REGISTER TO CHANGE 


;NOW COMPARE REGISTERS BEFORE WRITE HEADER AND DATA 
WITH REGISTERS AFTER COMMAND 


JSR RO, J8COMREG ores SAVED REGISTERS WITH 


sPRES. 
SAVERE ;G00D bATA JAVED IN *SAVERE’ 
We s TEST DATA STARTING FROM *RHWC’ 
18. 318. REGISTERS TO en RED 


3$ SRETURN TO 3$ ON ERR 








MAINDEC=11-DERPU-8 
DERFUB. Pi! T34 


* b= b= 0+ 9 b-< b= § - b * b+ 0 < Fb 2 9-0 & 2 2 =f 0 & 0 9-0 2 F0 b 0 = ho Fe 


9G go OE 0 OD AD nD LD AD ALD oD 0D AD LDA WD DAD AD DAD LD 
For ESeDUD BUPA E Loh ODED TOUTE Gaur CD IOUT LoS 


$291 


n 
fu 


OrOrororotorure 
0 2 2b bb -0 0 be 
conor onc Guru 


030730 


039732 
03074 


030736 
030736 


030742 
O30746 
030750 
030751 
030752 


930754 


030756 
030768 


039762 


030764 


031002 





930736 


104027 
600257 


004737 


004037 
900005 
oo4 
007 
17736 
oos444 


000900 
914000 


OC2362 


004737 


013777 


013746 


o52716 0 
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HECK HEADER AND DATA 


418. :NUMBER OF REGISTERS 
:SA VED = 18. 











4$ ;RETURN TO 4$ ON NO ERROR 


ERROR 27 ;WRITE HEADER AND DATA 
RTS ;CAUSED IMPROPER REGISTER 


; CHANGE 
GOOD eee GIVES WHAT SHOUL® 


RECEIVED DATS GIVES WHAT 
WAS THERE AFTER COMMANT 


;NOW FILL COMMAND FOR READ 


“or 
oO 


JSR PC, d#CLDISK iB R1-RHCS1, Re-RHCSe 


SETUP UNIT NUSER 


ISR RO, J8RUN :SETUP TO RUN FOR DATA COMMAND 
: CYLINDER S. 
? -TRACK 7 
-262.-4 : WORD count (DATA) =262.+ 
:4 HEADER WORDS 
REINTO 





;BUS ADDRESS 
, : STARTING ones OF DATA 


:BUFFER z 
0 :00 NOT INHIBIT BUS ADDRESS INCREMENT 
ECI!FMT22 326 BITS PER WORD FORMA 
; INHIBIT ECC CORRECTION 
309 NOT INHISIT HEADER COMPARE 
READY TO DO A 
;READ HEADER AND DATA. WITH 72 IN RHCS1 





REFOR 









iNOW SAVE REGISTERS FOR COMPARISON AFTER READ HEADER AND DATA 
5k RC, d@SAVER t+ REGISTERS 
HWC IS THE FIRST REGISTER SAVED 
SaVERE STR ING ADDRES WHERE 
THE REGISTERS ae saved 






JSR PC,SHCHECKT CHECK DVA,RDY,MOL,DPR, ORY. vw 





MOV DBRPYVEC , IRPVEC poet RPOY VECTOR ADDRESS 
%s TQ ats IF P-CLOCK IS PRESENT 
08 uy TIMEe’ IF F BCLOCK TS NOT PRESENT 


CURRENT MAE INDER ADDRESS 
AND LOOK AHEAD REGISTERS 












MOV Q#REFOR,-(SP)  ;GET READY TO MOVE COMMAND 
ers BGONTE, (SP) GET READY TO SET GO AND 
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S$: 


6$: 





dans ® INTERRUPT 






MOV (SP)+,JRHCS1 :G 
‘qt BCS FOR READ DATA 

ize NTERRUPT ENABLE 
WAT HALT FOR RDY BIT TO SET 
RHCS1 *WAIT FOR RHCS1 REGISTER 
ROY ‘WAIT FOR RDY BIT IN RHCS1 REGISTER 
986. sALLOM 9860 MICRO 3ECO NDS 
834. ‘ROY MUST SET BETW 


:1520 AND 18200 MieRO SECONDS 
- CHANGE SAVED REGISTERS TO EXPECTED VALUES 

$SR RO, J#F ILLRE sMOV_O INTO SAVED RHUC 

RHWC :SAVED REGISTER TO CHANGE 


0 

ISR RO, J&P ILLRE MOV REINTO+<(266.%2> INTO SAVED RHBA 
RHBA :SAVED REGISTER TO CHANGE 
REZNTO+<266, #25 

ISR , a#F ILLRE MOV 3408 INTO SAVED RHDST 


s SAVED REGISTER TO CHANGE 


;COMPARE REGISTERS BEFORE READ HEADER AND DATA fi 
WITH REGISTERS AFTER COMMAND AY 


JSR RO, J8COMRES 3 COMPARE SAVED REGISTERS WITH 
AVER : ATA SAV AVERE’ 

; = om Bate 2 MEP AR FROM atc” 
NS. REGISTERS TO BE COMPA 

og AE SURN TO S$ ON ERROR 

&$ :RETURN TO 6$ ON NO ERROR 

ERROR 31 ;READ HEADER ano DATA. CAUSED 

RTS PC s IMPROPER REGISTER CHANGE 


:G00D DATA GIVES WHAT SHOULD 

BE THERE RECEIVED gt GIVE. WHAT WAS 
;RECEIVED DATA GIVES WHAT WAS 

: THERE AFTER COMMAND 


;NOW_READ INTO BUFFER WILL BE .. .CKED TO SEE 
THAT READ WAS GOOD 


JSR RO, J#COMPAR fits ® Ms BLOCKS OF MEMORY 


WRFROM :GO0D DAT STARTS FROM_WRFROM 
REINTO ; TEST BATA STARTS ann REINTO 

ebb. :266. WORDS TO BE COMPARED 

7$ RETURN TO 7$ ON ERR aR 

10$ ‘RETURN TO 10$ ON NO ERROR 
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l WRITE CHECK HEADER AND DATA 
S285 031126 104032 73: ERROR 22 . ;WRITE HEADER AND DATA. 
9286 031130 ddd207 RTS PC ¢EOLLBUED BY A READ HEADER 
9297 -'AND DATA GAVE A READ ERROR 
3299 ‘ERROR MAY BE IN READ OR WRITE | 
3299 A WRITE,READ HAS BEEN SUCCESSFULLY COMPLETED ry) 
9291 2 sNOu WRITE CHECK HEADER AND DATA WILL BE GIVEN 
9292 FILL THE WRITE CHECK HEADER AND DATA 
333 031132 10$: er 
; A , 
$295 031132 004737 oO34sS6 JSR PC, J¥CLDISK sSET Ri- RHCS1 R2-RHCS2 \\ 
$296 ?R3-RHDS1, RY-RHERI \\ 
9297 : GIVE a INITIALIZE ¢ 
338 ‘SETUP UNIT NUBER 
$300 931136 904037 036532 JSR RO, 2#RUN ;SETUP TO RUN.FOR DATA COMMAND 
§301 931142 d0050s 5 :CYLINDER S ° 
$302 931144 004 .BYTE 4 : 2 
9303 031145 007 ‘BYTE ? TRACK 7 eis 
8304 O31146 177366 -262.-4 ;WORD COUNT (DATA)=262. + 
9305 :4 HEADER WORDS 
$736 031156 902400 WRFROM x :BUS ADDRESS 
9307 ; STARTING ADDRESS OF DATA 
$208 ?BUFFER = WRFROM 
$303 931152 oo0000 - 0 :DO NOT INHIBIT BUS ADDRESS INCREMENT 
$319 O31154 o14000 ECI'FMT22 . *16 PER WORD FORMA 
$311 s INHIBIT ECC CORRECTION 
9312 a :DO NOT INHIBIT HEADER COMPARE 
$313 021156 002352 WRCHDT “GET READY TO D0 A 
a1 ;WRITE CHECK HEADER AND DATA ITH S2 IN RHCS! 
$316 : 
9317 “SAVE REGISTERS FOR COMPARISON AFTER WRITE CHECK 
$318 031160 Stes: 
9315 031180 o04037 O34716 ISR RO, J8SAVER ; SAVE REGISTERS 
9220 031164 092210 RHWC ' CIS T FIRST REGISTER SAVED 
9321 931166 o04S22 SAVERE + OPARTING ABoRES oO WHERE 
3322 —— ;TH HE REGISTERS Bee SAVED 
9323 031170. o0o0ee 18. “NUMBER OF REGISTERS 
eee :SAVED = 18. 
deeb 031172 04737 034636 ISR PC, J8CHECKT :CHECK DVA,RDY,MOL, DPR, DRY, VV 
$228 | 
9329 931176 613777 OO4S16 151000 MOV QWRPYVEC,IRPVEC ;SET RPOY VECTOR ADDRESS 
9330. :70 'TI MEL IF P-CLOCK IS PRESENT 
9231 OP ME2’ IF P-CLOCK IS NOT PRESENT. 
$332 i =~ $*TIME? M ONLY SAVE 
§233 . sCURRENT CYLINDER ADDRESS 
9234 : x AND LOOK AHEAD REGISTERS . 
a : 
9337 031204 013746 o023S2 MOV DHWRCHOT,-(SP) ;GET READY TO MOVE ConMaND 
$238 021210 052716 O00101 BIS #GO!TE, (SP) :GET READY TO SET GO AND 


333 twa INTERRUPT 
9340 C3le14 012677 150776 ; MOV (SP)+,9RHCS1 ~ ;GO WITH 
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;52 IN RHCS1 FOR WRITE CHECK HEADER AND DATA 


031220 O11 3R1, HAVE ANLETPLEL AP ReBGE opener ron 


031222 ; : SAVE RHDS1 DURING ABOVE OPERATION 


931224 10441 Cm WAT nig he sHAIT FOR ROY BIT TO SET 
p31230 O00 Boy fe 
Osie32 Boose ’ . sALLOW oo HIER SECON be 


too. BRD T8200" MICRO SECONDS 
; COMPARE CONTENTS OF RHCS1 Sy RHDS1 ALREADY SAVED IN 
yRO AND RS Ree DIATELY AFTER GO 
002352 OV dal ay 


COMMAND 
004101 a TET DVAI SO (SP) } INCL UGE TE IE!DVA!GO 


001124 (SP), 0¥SGDDAT AVE FOR PRINTOUT 
(SP)+,R0 ; DURING ABOVE OPERATION ONLY IE!DVA!GO 
‘AND COMMAND SHOULD BE SET ne 
64S ; BRANCH IF GOOD oS 
RO, J#SBDDAT 
MOV R1’ J#REGADR FAILING REGISTER RHCS1 
104021 21 ‘DURING ABOVE OPERATION ONLY 
:C D AND D TELDVAEGO: SHOULD BE SET 
012746 : HMOL! DPR! VV, -(SP3 -SA VE ITS SET DURING OPERATION IN RHDS1 
011637 (SP) -aBSGDDAT  ;SAVE FOR PRINTOUT 
022605 , (5P)+,R5 s DURING ABOVE OPERATION ONLY MOL!DPR! VV 


001405 66$ ; BRANCH IF GOOD 
RS, a#S$8DDAT ATA 
MOV R3, J#REGADR FAILING REGISTER RHDS1 
031314 1 63° ;DURING ABOVE OPERATION ONLY - 


:MOL! DPR! VV eae BE SET 
031316 


; : SAVED REGISTERS TO EXPECTED VALUES 
031316 40 O344E0 SR RO, J#F ILLRE MOV G INTO SAVED RHWC 
‘ i : s SAVED REGISTER TO CHANGE 


0 
- O34460 RO, d#F ILLRE :MOV_WRFROM+<266.%2> INTO SAVED RHBA 
SAVED REGISTER TO CRANGE 
WRFROM+< 266. #2) 


O344E0 JSR_- RO,d#FILLRE ; MOV y 3408 INTO SAVED RHDST 
RHDST saved REGISTER TO CHANGE 


031344 003406 3406 


;COMPARE REGISTERS BEFORE WRITE CHECK HEADER AND DATA 
WITH REGISTERS AFTER COMMAN 


031346 004037 O03 JSR RO, J#COMREG cor SAVED REGISTERS WITH 
; PRESENT -—* UE 


Q313€2 udlSee SAVERE ; GOOD A aaveD IN *SAVERE’ 
2266 WC ; ie aecrer i TING E_CONPARED. 
. RETURN TO 5S QN 
031370 RETURN TO 9$ ON AO. ROR 
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9397 
031364 104040 8$: ERROR 40 ;WRITE CHECK CAUSED 
031366 000207 RTS PC $0 IPROPER REGISTER 


;G00D DATA GIVES WHAT 


: SHOULD 
RECEIVED DATA GIVES WHAT 
:WAS THERE AFTER COMMAND 


031370 9$: 
Se ae ta ee 


“TEST 35 WRITE HECK DATA 
THE DATA FOR THIS TEST IS WRITTEN ON DISK BY PREVIOUS TEST 
WRITE CHECK DATA CYLINDER 5, FORMAT 16 BITS PER WORDS 
TRACK 7, SECTOR 4, KEYS 0, NUMBER OF WORDS 259 
CON AStsTiNe OF 
WORDS OF 123 1234 (6 BITS FOR CYL, 5S FOR TRACK, S FOR SECTOR) 


owe ewe 
fH He 


°% 

*% 

-% 

+ % WO 1252 

:% 16 WORDS OF LEFT ROTATING ZERO (£G177776, 177775) 

2 16 WORDS OF LEFT ROTATING ONE (EG 1,2,4,10) 

x 174 WORDS OF 

i 2 WORDS OF 1234S 

°& 

i FIRST THE ABOVE DATA IS FILLED INTO tite FROM BUFFER 
£ 


THEN THE ABOVE WRITE CHECK DATA IS G 
age 9 pete sername mae ae ame ici vole 


’ 
; 
: 
? 
’ 
. 
4 
’ 
’ 
4 
; 
$ 
: 
' 
t 


031370 000004 COPE 
031372 Q12706 001000 MOV #STACK, SP ;RESET_STACK 
031376 O12737 000035 004514 MOV #35, a8TSTNM ;SAVE TEST NUMBER 


031404 004727 O345S6 ISR PC, J#CLDISK :SET RL-RHCS1, fecnncse 
:R3-RHDS1 RHER} 
: GIVE a INITIALIZE 
:SETUP UNIT NUBER 


;GET HEADS TO CYLINDER S 


031410 004037 034526 JSR RO, J#SEEKCY ;SEEK FOR 
031414 000005 5 CYLINDER 5 
031416 013777 OO4S16 150560 MOV DHRPYVEC, IRPVEC ;SET RPOY VECTOR ADDRESS 
;10 ats IF P-CLOCK IS PRESENT 
;OR TO *TIME2’ IF P-CLOCK IS NOT PRESENT 
;?TIME’ WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
sAND LOOK AHEAD REGISTERS 


031424 013746 002364 Q8SEECOM,-(SP) ;GET READY TO MOVE COMMAND 
031430 052716 000101 wGO!TE, (SP) GET READY TO SET GO AND 


ENABLE | INTERRUPT 
031434 012677 150556 (SP)+,JRHCS1 ;G0 WITH 





MAINDEC-11-DERPU-B 
DERPUS. P11 135 


BSA? east 


Bat BoNe05 
Bsi4s0 004704 


004737 


004037 


012344 
004037 
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—— 
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JSR PC, d#8CLDISK 


,10 WORDS OF Ry” 12344, 


SSR RO, J#CLAREA 
WRFROM 


10. 
($¥2000> !$<7#40>!4 


JSR RO, J#CLAREA 
MRFROM+< 10. #2) 


-l] «. 


JSR RO,a#CLAREA 
theta 


a 2 


JSR RO, J#CLAREA 


- WRFEROM+< 30. *2> 


10. 

52525 

JSR RO, J#CLAREA 
WRFROM+<40. #2> 


10. 
‘ 125252 


;4_IN RHCS1 FOR SEEK 
sWITH INTERRUPT ENABLED 


iat E98 Bis] necisTeR 


Y BIT IN peed REGISTER 


. sDRY ET BETWEEN 
‘00 AND SOO0O MICRO SECONDS 


SET Ri -RHCSI R2-RHCS2 
jR9-RHOS1 U-RHER 
:GIV aot INITIALIZE 
aS tat R 
17777.0 $2525 125252 
°CL WORDS. FROM WRFROM 
SO ERTING’ FROM WRFROM 
10. WORDS 
sFILL WITH <S#2000)!<7*40>!4 


;CLEAR 10. WORDS. FROM WRFROM+< 10. *2> 
“STARTING FROM WRFROM+< 10. ¥2> 
310. WORDS 
‘FILL WITH -1 


; CLEAR 10. 7HORDS FROM WRFROM+<20. ¥2> 
ori" TING FROM WRFROM+<20. ¥2> 


310. W 
FILL WITH O 


; CLEAR 10, HoRoS FROM WRFROM+<30. *2> 
RTING FROM WRFROM+< 30. *2> 


10. WOR ie 

:FILL WITH S2525 

; CLEAR 10. HoROS FROM WRFROM+<40. #2) 
TING FROM WRFROM+<40. #2> 


;10. WO 2" 
sFILL WITH leSeS2 


pi LEFT ROTATING ZEROS apt ye . #2) 


R1,- 
#127776, RO 


: 1 ON STACK 
‘hate 


#16.,R5° + COUNT 
SURF RON+<50. *2>,R1 ;WHERE DATA GOES 


RO, (R1)+ 
RO 


RS 
1$ 


éL¢ 
MOV - #1,RO 
MOV RO; (R1)+ 


;STORE DATA 
;GET ZERO ONE BIT LEFT 


* BRANCH IF 1& NOT DONE 


;FILL LEFT ROTATING ONE INTO WRFROM+<65. *2> 
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RP WRITE CHECK DATA 
9509 0321600 006300 ASL RO 

9510 031602 103375 Bcc 2 

9511 031604 O12601 MOV (SP)+,R1 ::POP STACK INTO RI 

9s12 “FILL REST OF RATA 

9513 O31€0&8 oO04037 O24426 SR RO, J#CLAREA sCLEAR 174. WORDS, FROM WRFROM+<82. *2> 

9514 031812 O02644 WRFROM+< 82° ¥2) “STARTING FROM WRFROM+<@2. #2) 

9515 031614 9002s6 174, WORDS 

3516 031616 000377 377° etl WITH 377 

9518 031620 904037 O34426 JSR RO, JHCLAREA ;CLEAR 2 WORDS FROM WRFROM+<256. #2> 

9519 031624 003400 WRFROM+<256. ¥2> ARTING FROM WRFROM+< 256. #2> 

9520 931626 300002 , 2 32 woros*= 

9521 031630 012345 (S¥2000) !<7*40> #5 sFILL WITH <S*2000>!<7#40>!5 


ese ;FILL THE WRITE CHECK HEADER AND DATA 

eee 031632 OO04037 036532 JSR RO, J#RUN ;SETUP_TO RUN FOR DATA COMMAND 
927 031536 000005 5 ;CYLINDER 5S 

9528 031640 O04 BYTE 4 ;SECTOR 4 

9529 031641 007 OYTE 7 5 on 7 

9520 O3164e 177400 ~256. WORD COUNT = 256. 

9531 031644 002400 WRF ROM BUS ADDRESS 

3532 * ;STARTING ADDRESS OF DATA 

9533 BUFFER = WRFRO 


9534 031646 o00000 0 3D0 NOT INHIBIT BUS ADDRESS INCREMENT 
9535 031650 014000 ECI!FMT22 716 BITS PER WORD FORMAT 

9536 2 s INHIBIT ECC CORRECTION 

9537 :00 NOT INHIBIT HEADER COMPARE 

9538 O31652 o02350 WRCHEK “GET READY TO DO A 

9539 ; ;WRITE CHECK DATA WITH Sc HN RCS 

3540 

9542 -SAVE REGISTERS FOR COMPARISON AFTER WRITE CHECK 

9543 031654 004037 034716 5Se RO, a#SAVER ;SAVE REG 

aH 031660 902210 SHC *RHWC IS THE FIRST REGISTER SAVED 


031662 004522 SAVERE ;STARTING ADDRES OF W 
, ; THE STERS AR 


9546 . STHE REGISTERS ARE SAV 
9547 031664 op0022 is. :NUMBER OF REGISTERS 
9548 ;SAVED = 18. 


eee 031666 004737 034636 JSR PC, d#CHECKT ;CHECK DVA,RDY,MOL,OPR,DRY, VV 


9553 031672 013777 OO4S16 150304 MOV QBRPYVEC ,ARPVEC ; 39ET RPOW VECTOR ADDRESS 

9ss4 370 *TIMEL’ IF P-CLOCK IS PRESENT 

9ssS OR 10 "TIMEe* x P-CLOCK IS NOT PRESENT 
9556 ;' TIME’ WILL ONLY SAVE 

$557 CURRENT CYLINDER ADDRESS 


9558 GAND LOOK AHEAD REGISTERS 


9561 031700 013746 002350 MOY  @AWRCHEK,-(SP) ;GET READY TO MOVE COMMAND 
$S62 031704 OS2716 OO0101 BIS —-#GO! TE, (SP) GET REAQY 10 SET GO AND 
9563 3 . ENABLE INTERRUPT 

9664 031710 012677 1503027 MOV (SP)4,3RHCS1  ;G0 WITH 
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9565 -SO IN RHCS1 FOR WRITE CHECK DATA 
9565 WITH INTERRUPT ENABLED 
9567 031714 011100 MOV JR1,RO ‘SAVE RHCS1 DURING ABOVE OPERATION 
3568 031716 011305 MOV JR3,RS SAVE RHDS1 DURING ABOVE OPERRTION 
70 
71 031720 104410 WAT ;WAIT FOR RDY BIT To ai 
3295 eS ESaS aw satT FQ a B RDy erred T ‘ a 1 REGISTER 
oe O8i552 07598 ae ALLOW Se60 MICRO SEC ates 
9575 031730 001502 834. ;RDY MUST SET BETW PEN 
9576 1520 AND 18200 MICRO SECONDS 
9577 sCOMPARE CONTENTS OF RHCEL AND RHDS1 ALREADY SAVED IN 
9578 ?RO AND RS IMMEDIATELY AFTER GO 
9579 031732 013746 002350 Mov DRWRCHEK.-(SP) ;SAVE COMMAND 
9680 031736 OSe716 04101 BIS TE BVA' SO (SP) s INCLUDE TE:DvA GO 
9581 031742 O11$37 001124 ae MOV (SP) asSGDDAT  :SAV PRINTOUT 
8582 031746 O22600 : - CMP (aP)4°RO GUNG RBOVE OPERATION ONLY IE!DVA!GO 
9583 i AND COMMAND SHOULD BE SET 
9584 031750 001405 ‘BE 67% : BRANCH IF GOOD 
9585 03175¢ 010037 9001126 MOV RO, J#SBDDAT *BAD DATA 
9585 031756 010137 OO4510 | MOV 1’ J#REGADR ‘FAILING REGISTER RHCS1 
9587 031762 104021 ERROR ate :DURING ABOVE OPERATION ONLY 
9588 M AND IE!DVA!GO SHOULD SE SET 
9589 031764 o12e746 010590 67$: MOV HMOL! DPR! VV, -(SP3 -SAVE BITS SET DURING OPERATION IN RHDS1 
9590 931770 611637 001124 MOV (SP). JaSGDDAT  ;SAVE FOR PRINTOUT 
9691 031774 O22605 CMP (3P)+,R5 *DURING ABOVE OPERATION ONLY MOL! DPRIVY 
9592 :SHOULD BE SET 
9593 031776 001405 BEQ 69% ; BRANCH IF GOOD 
9594 032000 010537 001126 MOV RS, J#SBDDAT :BAD: DATA 
9595 032004 010337 OO4SI0 MOV R3, J#REGADR :FAILING REGISTER RHDSi 
8596 032010 104063 ERROR 63. s DURT NG ABOVE OPERATION ONLY 
9597 *MOL'DPR'VV SHOULD BE SET 
3598 022012: 695: 
9600 “CHANGE SAVED REGISTERS TO EXPECTED VALUES 
9691 032012 O04037 O34460 JSR RO, J#F ILLRE :MOV O INTO SAVED RHWC 
9602 032916 O02210 RHIC SAVED REGISTER TO CHANGE 
9603 032020 o00000 0 :0A 
9604 032022 904037 O34460 ISR RO, J#F ILLRE “7 WRFROM+<256.%2> INTO SAVED RHBA 
9605 032026 02212 RHBA _ «> REGISTER TO CHANGE 
9606 032030 003400 _ WRFROM+<256. #2> DATA 
9607 032032 004037 o34460 JSR RO, J#F ILLRE 08 INTO SAVED RHDST 
$608 032036 02222 .  RHDST saveD REGISTER TO CHANGE s 
3609 032040 o0340S 3405 :DATA “Y 
9611 sCOMPARE REGISTERS BEFORE WRITE CHECK HEADER AND DATA 
ole :WITH REGISTER AFTER COMMAND 
e184 032042 004037 O2SS46 JSR RO, JHCOMREG SeeeENT 8 SAVED REGISTERS WITH 
9616 032046. oo4S22 SAVERE GOOD DATA a VED IN 'SAVERE’ 
9617 O320S0 O02266 We TEST DATA STARTING FROM *RHWC’ 
9618 0322052 900022 18. :18. REGISTERS 0 BE COMPARED 
9619 032054 O32060 8g RETURN TO 8$ ON ERROR 


9620 032056 032064 93 RETURN TO 9$ ON NO ERROR 
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3 032062 


9630 032064 


9656 032064 
9657 032066 
032972 


$660 032100 


14 
. $669 032116 


$672 O3ele2 


9674 O3e2l22 
9675 032126 
9676 032130 


T3S. 


l 
9622 032060 104040 


000207 


000004 
Ci2706 
012737 


004737 


009167 


000137 


004037 


000005 
013777 
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001000 
000036 004514 


034556 


000474 
004642 


CS2604 


034526 
OO4S16 150046 
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9S: 


ERROR 40 ;WRITE CHECK CAUSED 
RTS PC z2N IMPROPER REGISTER 


GOOD DATA Give? WHAT 
; SHOULD vy 

RECEIVED DAT A GIVES i 

;WAS THERE AFTER CORMANDS 


SSIES ae RITE CHECK DATA USING UNIS Be 


De HK IK DK DE DK KC OC De DK i iC oie ie ic 2c 


ee eee eee ee ee re re re re Te ee Ts 


> xTEST 


36 WRITE CHECK DATA USING U 
F CON 


E OR WW 
WRITE CHECK DATA C CYLINDER S, FORMAT 16 BITS PER 
TRACK 7, SECTOR 4, , KEYS 0, NUMBER OF WORDS 259 
10 WORDS OF 12344 (6 BITS FOR CYL, S FOR TRACK, 5 FOR SECTOR) 
i WORDS OF 1 


& WORDS OF LEFT ROTATING ZERO (EG177776, 177775) 
6 WUBRBS OF a ROTATING ONE (EG 1,2,4,10) 


WORDS OF 12345 


TU bp bh 


FIRST THE ABOVE DATA IS FILLED INTO WRITE FROM BUFFER 
THEN THE ABOVE WRITE CHECK DATA IS GIVEN 


PETE EEE E ET EeET ISTE PTET PT UPT PET EL EOr TET TET EEE ET TET TEE TTT 


tS736: 


11S: 


MOV #STACK, SP ;RESET STACK 

MOV #36, 28TSTNM -SAVE TEST NUMBER 

JSR PC, J#CLDISK ;SET R1-RHCS1 R2-RHCS2 
:R3-RHDS 1 HE 


4-RHER] 
;GI IVE RH- Te INITIALIZE 
“SETUP UNIT NUBER 


IMP TST37?___; JUMP TO NEXT TEST FOR RH70 
TST a#UBUSB :IS UNIBUS 8 THERE 

BEQ 11$ sUNIBUS 8 THERE SO CONTINUE 
IMP 3898 NO UNIBUS B JUMP OUT 


;GET HEADS TO CYLINDER S 


JSR RO, J#SEEKCY i eEIN a A. 
MOV DHRPHVEC,ARPVEC ;SET RPOY VECTOR ADDRESS 





x ee 
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11 


032136 
032142 


0321 
032162 


032164 


tated 


032264 


T36 


013746 
052715 


012677 


0047’ 
004704 


004737 


004037 


000000 
004037 


052525 
004037 
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WRITE CHECK DATA USING UNIBUS 


002364 
000101 


150044 


034556 


O34426 


034426 


034426 


034426 


034426 


177776 
000020 
002544 


aaSEECOM, -(SP) 
#GO! IE, (SP) 


(SP)+,QRHCS1 


PC, J#CLDISK 


;10 ——. MF EACH 12344, 


ss Ron, Ur SaCLARER 
RCW 


<5%2000) !<7%40> #4 


JSR RO, J#CLAREA 
UBFROM+< 10. .*2) 


| 


JSR RO, J#CLAREA 
ee .*2> 


JSR RO, J#CLAREA 
URFROM+« 30. #2) 


10. 
$2525 


JSR RO, J#CLAREA 
WRFEROM+<4O; #2> 


125252 


17777 


:TO *TIMEL” IF P-CLOCK IS PRESEN 
;OR T , TeMEe’ IF F B-CLOCK IS rae PRESENT 
:* TIME’ WILL ONLY SAV 


; CURRENT CYLINDER ADDRESS 
AND LOOK AHEAD REGISTERS 


;GET READY TO MOVE COMMAND 
:GET READY TO SET GO AND 


3 sENABLE INTERRUPT 
360 Wi TH 


IN RHCS1 FOR SEEK 
siti INTERRUPT ENABLED 


WATT FOR DRY BIT TO SET 
WAIT FOR pad REGISTER 
OR DRY BiT IN RHDS1 REGISTER 
nies 


5 
00 AND. SOC00 MICRO SECONDS 


:SET R1-RHCS1, R2-RHCS2 
*R3-RHOS1, RY-RHERI 
:GIVE a INITIALIZE 
jog TuP UNIT NUBER 
0, 52525, 125252 
-CLEAS 10. WORDS FROM WRFROM 
*STARTING FROM WRFR 
10. WORDS 
;FILL WITH <5*2000>! (7¥4Q> 24 


CLEAR 10. HoRDS FROM WRFROM+< 10. #2> 
RTING FROM WRFROM+< 10. ¥2> 


;10.. 
SFILL WITH -1 


:CLEAR 10. WORDS, FROM WRFROM+<20. ¥2> 
voria TING FROM WRFROM+<20. ¥2> 


310. W 
sFILL WITH O 


; CLEAR 10. HgRos FROM WRFROM+<30. ¥2> 
ag vorbe RTING FROM WRFROM+<30.¥2> 


FILL WITH 52525 


: CLEAR 10. 7HOROS FROM WRFROM+<40. ¥2> 
TING FROM WRFROM+<40. ¥2> 


10. WOR oe 
FTL WITH leSeS2 


ri LEFT ROTATING ZEROS ap page! 42) 


HOV 4127776, RO 


‘data 


ON STACK 


M #16.,RS° BOUNT 
MOV HuRERON<50. #2>, ar: ;WHERE DATA GOES 
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032320 
032324 
032326 


032332 
032336 
032346 
032342 


032344 


032356 


032360 
032362 


032364 


032366 


032374 
032400 
032402 


032404 


032406 








1033 

01260). 
004037 
002544 
000256 
000377 


004037 
0 


012345 


004037 
000005 


000099 
014000 


002350 


052777 


004037 
002210 
004522 


coctee 


004737 


MACY11 27(732) 
WRITE CHECK DATA USING UNIBUS B 


17-SEP-76 13:23 PAGE 195 


sBRANCH IF 16 NOT DONE 


Ay Rt LEFT ROTATING ONE INTO WRFROM+<65. *2> 


MOV (SP)+,R1 ;;POP STACK INTO R1 
-FILL REST OF DATA 


SR 
WRFROM+< 82: Pep 
174. 


JS 
WRFROM+< 256. ¥2> 


se WORDS’ 
«5*2000>!<«7#40>!'S 


-;FILL- THE WRITE CHECK HEADER AND DATA 
s SETUP TO RUN FOR DATA COMMAND - 
sCYLINDER 5 


;WRITE GHECK DATA WITH SO tN RHCS! 


cooooo 147622 :SET PORT 
: SAVE REGISTERS FOR COMPARISON AFTER WRITE CHECK 
5k RO, J#SAVER : SAVE REGIST ER 


:RHWC_IS T 

STARTING ADDRES OF 

; THE REGISTERS ARE SAVED 
;NUMBER OF REGISTERS 
SAVED = 18. 


3CHECK DVA,RDY,MOL, DPR, ORY, VV 











;STORE DAT 
ist ZERO ONE BIT LEFT 

















;CLEAR 174. WORDS, FROM WRFROM+<82. ¥2) 
;STARTING FROM WRFROM+<82. #2> 


3174. Ss 
sFILL liITH 377 


;CLEAR 2 WORDS, FROM WRFROM+<256. #2) 
STARTING FROM WRFROM+<256. ¥2> 


sFILL WITH <S*#2000>!<7%40>!5 



















R_4 
TRACK ? 
sHORD COUNT = 256. 
:BUS ADDRESS 
een ne OF DATA 
:D0 NOT Me BITS OR Oe PO 


; INHIBIT’ ECC CORRECTION 
:00_NOT INHIBIT oe: COMPARE 
:GET READY TO DO A WRCHEK 
















RTS 
: THAT IS UNIBUS B 






HE FIRST Mat ae SAVED 







MACY)1 E7732) cP-7e 13:2 
WRITE CHECK DATA UStNS UNTBUS 8 


or ry) 
i a 
‘ON Ltt 


te | 
P28 -2,0.0. 


DODO Deh Medd 


boe- OD” 9 


fe 


(OO Obs OMA OGD wa 


‘ 0 

qon cocoon dp 
MIO) 
rN eos 


10.0.0.0.0.0.0 0.00 
ihihibin wipes 
C.000 OUT -£ Gotu 


TUT 0+ 0 bo + ooo 


~ [2°28 
fTwr-rm £00 
low) 


OWN WO) 


- 


Riot 
Te 
OO owt 
wn unmnm 


—-OOD 
Mwwc 
wnn 


:23 PAGE 196 


MOY 


MC DBREYVEC , DRPVES 


;SET PORT SELECT 


MCV SEARCHER = 
315 860! ieee. ( 
MOV (SP), a! 


P)_ :GET READY TO MOVE COM 
) “GET REACY 

as salad 

3:50 IN RHCS1 FOR WRITE CHECK DATA 

UIT INTERRUPT ENABLED 


:3A MER HCS1 DURING ABOVE Seen TON 
s SAV Rr 





ae RPOY VECTOR ROORES $ 


CURRENT CYLINDER ADDRESS 
TAND LOOK AHEAD PEGISTERS 


ANC 
16 es 8) 





War WAIT FOR ROY BIT TO SET 
RHCS} WAIT FOR RHCS1 REGISTER mee 
DY {WAIT FOR ROY BrT IN RHCS1 REGISTER 
386. ALLOW 3660 Mice SECON NDS 
634. =ROY MUST SET SE.WEEN 
1820 AND 18240 MICRO_SECONDS 
: LOMPARE af? ONTENTS OF RHC if AND RHOS! ALREADY SAVED IN 
-80 AND RS IMMEDIA 15 RFTER 60 
ay DaWRCHEK,-(SP) SAVE COMM 
1S a1! OvatPse 160 (SP) Rivas: IE!DVA!PSEL!GO 
ay SP} ae$cDDAt ':SAVE FO 
CMP (ep) 4°Ra : DURING ABOVE Oe RATION ONLY IE!D\ 
:AND COMMAND SHOULD BE SET 
SEQ &7$ s BRANCH | IF GOOD 
MOV RO, J#$BD0A :BAL OAT 
MOV 1 @BREGADR !FATLING AREGISTER RHCS! 
ERROR 21 :DURING ABOVE OPERATION ONL 
SCONMAND AND 8 IOVAIPSEL GO 
MOV sMOL!DPRi VV, -(SP3 - SAVE irs SET DURING 
MOV = (SP), y2BSGODRT SAVE FOR PRINT 
CMP. (Sp )4 R56 URING ABOVE soe RATION ONLY MOL!DPREV 
iy HOULS BE SET 
REQ 69S s BRANCH | IF 6000 
MOV RS, I“SBODAT :BAD DAT 
MOV R32; JHREGQOR IFBILING, REGISTER RHOS! 
ERROR 63 :DURING ABOVE OPERATION ONLY 


;MOL!OPR!VVY SHOULD BE SET 


“CHANGE SAVED PreLaTeRs TO exPes TaD VALUES 
SR :MOV_O IN 


RO, deFILL 
HWC 


RO, J#FILLRE 


TO SAVED RHWC 


;SAVED REGISTER TO CHANGE 
;DATA 


:MOV WRFROM+<256.#2> INTO SAVED RHBR 
:SAVED REGISTER 


TO CHANGE 












om 


OS1 OURING ABOVE OFERAT 


‘OPERATION tN RHOS! 





WRITE LOCKS AND ALL REGISTERS ARE COMPARED 





MAINDES- =L1-DERPU-8- MACY11 27(732) 17-SEP-76 13:23 PAGE 197 a: 
DERPUS.P11 T3e WRITE CHECK DATA USING UNIBUS es : 
as4s 932550 003400 WRFROM+< 256. ¥2> 
§eu, 53252 004037 034480 JSR RO. JF ILLRE :t1OV suk” ANTO SAVED RHOST 
9847 932558 02222 RHDST s SAVED REGISTER TO CHANGE 
s43 932562 003405 3405 : DAT 
385) sCOMPARE REGISTERS SEFORS WRITE CHECK HEADER AND DATA 
3351 4 sHITH REGISTER AFTER COMMAND 
$253 o32562 coMo37 o35s46 JSR —- RO, ASCOMREG ;COMPARE SAVED REGISTERS WITH 
$354 : PRE ENT va 
Ss55 32566 o04s22 SAVERE "6000 DATA SAVED IN *SAVERE’ 
$856 032570 302266 we “TEST DATA STARTING FROM ‘SHWC’ 
$857 032672 000022 18 :18. REGISTERS TO ec COMPARED 
8858 632574 032653 8 :RETURN TO S$ ON £ 
$859. 032576 32604 35 :RETURN TO 9$ ON NO oFROR 
SSou : 
886] 032609 104075 9$: ERROR 76 sWHILE USING UNIBUS 8 
36¢5 ? : fe s sHRITE CheCK CAUSED 
363 032602 900207 RTS PC BN. INPROPER REGISTER 
SEs - . CHAR BATA GIVES WHAT 
3Ecé “ ‘SHOULD SE THERE 
$85> *RECEIVED DATA GIVES WHAT 
$ae2 WAS THERE AFTER COMMANDS 
9355 & 
$875 03260 33 | 
ge75 
Se7 
8875 
| S875 
$876 
S877 HOM ge armas a gto ge te meget acetate 
$879 a TEST 37 WRITE PROTEST BUTT 
#05 i IF STARTING E DReSe 220 1S SED THIS TEST WILL NOT BE PERF JRMED 
926] t* IF THE PROGRAM WORKS UNDER ACT-11 MONITOR 
#55 :* THEN THIS TEST IS NOT PERFORMED 
S654 1+ IF NO ACT-11 MONITOR Is PRESENT 
seas + THEN THIS TEST 1S PERFORMED ONLY ON THE FIRST PASS 
# i ON SUBSEQUENT PASSES THIS TEST IS NOT DONE 
see té WRITE FROM BUFFER IS FILLED WITH ALL ONES AND 
3283 i SECTOR 0, TRACK O, CYLINDER O IS FILLED WITH 
$69! + BLL REGISTERS ARE SAVED THEN WRITE LOCK BUTTON IS 
ses2 :* RESSED AND ALL REGISTERS ARE CHECKED. 
s€$3 : fe TE FROM SUFFER IS FILLED WITH 377 AND A WRITE IS 
| $895 # ATTEMPTED TO SECTOR 0 TREK 0, CYLINDER O 76. WORDS 
| 98ss + ALL REGISTERS ARE CHECKED 
| 866 t+ THE SAME SECTOR IS READ AND DATA COMPARED TO SEE 
#37 i THAT NOTHING GOT. DESTROYED (READ DATA SHOULD BE ALL 
| 3599 : i THEN WRITE LOCK BUTTON IS PRESSED TO UNLOCK 





MATNOEC=11-DERPU-8 
DERFUS.P il T3? 


TU o~ 9 0 + 0 » = p00 0 b+ ( 


‘DL DDD. B.D Debi sD 
-OWONIWUE ITU OWw 


00.0.0.0 00000000000 
Ute tate 


SS5ebe 
O32 le 


O3262C 


032712 


022714 


032720 


eae 901009 


004737 


000367 


004037 
602450 
e00409 
177777 


904937 
500000 
177400 
poe4o0 


000000 
010090 


002354 


004737 


013777 
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WRITE PROTECT BUTTON 


227 eae amare ree at 
-” ¢ : 
MOV sSTACK, SP RESET STACK 


0869037 o904s14 MOV #37, a8tSTNM “SAVE TEST NUMBER 
O34S56 JSR PC, JSCLDISK i T RA-RHCS1 afechtcse 
-RHOS 
GIVE Reed INITIALIZE 
s | SETUP UNIT NUBER 
oo4634 TST JeNOPUSH ;15 TH Is 220 START 
BEG 3g i BRAN. CH IF NO 
091170 IMP TSTYO — ; JUMP TO NEXT TEST 
000042 S$: TST aese2 -MONITOR (ACT-11) RETURN ADDRESS 
NE 1$ i BRANCH IF HONTT OR PRESENT 
001100 TST 3eSPASS :IS THIS FIRST PASS 
NE 1$ :BRANCH IF NOT FIRST PASS 
- 3R 2 >BRANCH TO CONTINUE TEST 
001146 IMP TSTHC_ JUMP TO NEXT TEST 


sFILL SEC SiR” 0, TRACK O, CYL O WITH ONES 
:FILL WRITE FROM BUFFER 


o3442 JSR RO, J#CLAREA CLEAR 258. WORDS, FROM WRFROM 
WREROM LSTARTING FROM WREROM 
: :256. WORDS 
=] :FILL WITH -1 


;FILL WRITE DATA COMMAND 


036522 ISR RO, J#RUN :SETUP TO RUN FOR DATA COMMAND 
sCYL 
BYTE 9 sSECT oR 0 
"BYTE 9 K 9 
256. RR COUNT = 2%. 
WRFROM sO ADDRESS 
- 3 STARTING ROOF : => 3F DATA 
BUFFER = WAF-. 
9 DO NOT TNHT= . 5US ADDRESS INCREMENT 
FMT22 316 BITS Pet 50 FORMAT 
00 NOT INKI=:* ECC CORRECTION 
;D0_NOT Ih-:-T HEADER COMPARE 
WRIDAT GET READ “bp A WRIDAT 
:WRITE DATA WITH => =N RHCS1 
C4636 ISR PC, QECHECKT sCHECK — =, 3DY,MOL,DPR, DRY, VV 
OO4S16 147256 MOY DARPYVEC, IRPVEC sSET, OR ADDRESS 


vECT 
welt PeCkOCk IS PRESENT 


‘Ok 10 ME e P-CLOCK IS NOT PRESENT 
Y SAVE 


;* TIME’ WILL ONL 
: CURRENT AYCINDER ROORESS 


Paes 
0 ‘TI 








MAINDEC-11-DERPU-8 
DERPUB. PIL T3? 


032726 
032732 


032754 
03e766 
032762 


032764 


Baers 


033 
033132 


033134 
033140 
033142 


033150 


033154 
033156 
033160 


013746 
OSe27i 


012677 


104410 
002216 


900290 
ethane 
004704 


004037 
002210 
004522 


ooc0ee 
44pn 
Apne 


013746 


oocc0s 


094037 
002240 


004000 


004037 


004522 
O022t6 
000022 


ACYL1 27(732) 


002384 
000201 


147254 


O347 16 


032774 


004626 
033026 


035440 


C3SS46 
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WRITE PROTECT SUTTON 


S7$: 


68$: 


;AND LOOK AHEAD REGISTERS 


MOV QBWRIDAT,-(SP) ;GET READY TO MOVE GOMMAND 
BIS aGO!TE, (SP) ;GET READY TO SET GO AND 
:ENAB 9 csecsttaatlc 


MOV (SP}+, JRHCS1 360 Py 
O IN RHCS1 FOR WRITE DATA 
sity INTERRUPT ENABLED 
;TIME IS NOT CRITICAL 


WAT ;WAIT FOR RDY BIT TO af 

RHCS1 :WAIT FOR paar REGIS 

ROY swell FOR R nice IN “ARCS REGISTER 
sohn ROY Must at As TE _— 


300 AND s0000 MICRO E SECONDS 


;SAVE REGISTERS FOR COMPARISON AFTER WRITE PROTECT 
,BUTTON HAS SEEN HIT 


SR RO, JBSAVER : SAVE REGISTERS 
RHWC HWC IS THe FIRST REGISTER SAVED 
SAVERE STARTING 8 DORES OF WHERE 
; THE “oF Rea S ARE * SAVER 
18. t ACHBER OF REGISTERS 
:SAVED = 
TYPE +4 : 3 TYPE ofbet2. 5 STRING 
BR CG 7S :GET HE FSCIZ . 
5;.ASCIZ «45><12>/0N° Se ive / r | 
MOV JeUNIT, -( SP) GET UNIT UNDER TEST 
TYPDS 
TYPE +4 +1 TYPE asciz STRING. , 


BR ESS OVER THE ASC IZ 
7:.ASCIZ (1s) «12> /PORHE lint} PROTECT BUTTON TO LOCK OUT WRITES THEN HIT CO 


HALT 
pus, wer REGISTER THAT SHOULD CHANGE IS RHDS1 - BIT #11 


JSR RO, J8#CHREG ;CHANGE BITS IN SAVE QEGISTER 
RHDS! ;CHANGE RHDS1 REGISTER 

1 id BIT/BITS TO Ae CHANGED 

1 ;NEW VALUE OF WRL IS ! 

WRL :CHANGE WAL BIT 


;COMPARE ALL REGISTERS SEFORE WRITE WAS LOCKED 
OUT WITH REGISTER VALUES AFTER WRITE WAS LOCKED OUT 


JSR RO, J#COMREG core Ft REGISTERS WITH 


; PRESEN 
SAVERE : GOOD DATA SAVED IN "SAVERE’ 
we TEST DTA STARTING FROM “RHWC” 
18. :18. REGISTERS TO BE COMPARED 









aed 
% 
i) 


atetetetstststs} 
Rem ~srer ed 
OMIM UIs 


rorure 


Q0g 
Gitur 


0 = b= b-< 0 9+ pb -0 p= p= po p= po pe 


ity 


é 


033216 
QO33222 
033224 
O332eS 


033226 
933230 


Os3232 
033234 


023236 


033240 ° 


033244 
033246 


- 033250 


033252 


-DERPU-B 


p33} 8 a RETURN T 3 oN ERROR 
4 RETURN T N NO ERROR 
104041 3$: ERROR 41 Love Ns QUT Wad TE BY 
000207 RTS PC WRITE LOCK BUTTON CAUSED 
tTMPROPER REGISTER CHANGE 
; GOOD 9 bare GIVES WHAT SHOULD 
RECEIVED DATA give? WHAT 
THERE AFTER WRITE 
sae LOCKED OUT BY BUTTON 
Mo e. fh WILL BE ATTEMPTED WITH WRITE LOCKED © 
‘FILL WRITE FROM aan WITH 377 
013737 033172 001110 4S: Mov O84$,a8SLPERR ;SCOPE LOOP STARTS FROM HERE 


004737 34556 


CO” "37 O34426 


004037 036532 
008099 
000 
000 
177777 
002400 


000000 
019008 


002354 © 


‘p04037 O34716 


092210 
004S2e 


000022 


013777 OO4S16 146724 


MACYL1 27(732) 
T3? WRITE PROTECT BUTTON 


JSR RO, J#RUN ;SETUP TO RUN FOR DATA COMMAND 
;CYLINDER 0 | 
-BYTE OQ ;SECTOR 
BYTE OQ. ; TRACK O 
-j. ; WORD COUNT = 1 
WRFROM ;BUS ADDRESS 






17-SEP-76 13:23 PAGE 200 








ISR PC, J#CLDISK SET RI-RHCS1, aie cReese , 
E sRa- -RHDS! 
IVE rics INTIAL IZe 
asian R 
JSR RO, J#CLAREA : CLEAR yur WORDS FRON WRFROM 
WRFROM 3 STEIN EROH M WRERO 


77 FILL WITH 377 











;TRY A ONE WORD WRITE 











: STARTING ere OF DATA 


*BUFFER = WRFROM 
9 300 NOT INIT BUS RODRESS INCREMENT 
EMT22 115 BITS PER FORMA 
DO NOT INEIBTY Reo RORRECTION 
DO NOT INHIBIT HEADER COMPARE 
WRIDAT ‘GET READY TC DO A WRIDAT 
WRITE DATA WITH 60 IN RHCS1 









iSAVE REGISTERS 
15k RO, J8SAVER ; SAVE REGISTERS 








HWC sRHWC_IS THE FIRST REGISTER SAVED 
SAVER ;STARTING ADDRES OF WHERE 
3 THE REGISTERS ARE SAVED 
18. ;NUMBER OF REGISTERS 
;SAVED = 18. 


s 


MOV OBRPYVEC , IRPVEC soBT RPOY VECTOR ADDRESS 
"TIMEL’ IF P-CLOCK 1S PRESENT 
OR TO *TIME2’ IF P-CLOCK IS NOT PRESENT 
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DERPUB.P11 T3? WRITE PROTECT BUTTON 


10063 ;* TIME’ WILL ONLY SAVE 
1007 % ms e ;CURRENT CYLINDER ADDRESS 
tee ; , SAND LOOK AHEAD REGISTERS 
















10073 

10074 033260 O13746 002354 MOV DRWRIDAT,-(SP) ;GET READY TO MOVE COMMAND 
1007S 033264 OSe718 000101 3IS #GO!IE, (SP) :GET READY TO SET GO AND 
10076 sENRBLE | INTERRUPT 

10077 033270 012677 146722 MOV (SP)+, JRHCS1 

10078 eo tN MRHCSI FOR WRITE DATA 
100 2 htt INTERRUPT ENABLED 

1¢o80 . : TIME IS NOT CRITICAL 

« f 

10082 033274 104410 WAT ;WAIT FOR RDY BIT TO SET 
10083 033276 O02216 RHCS1 “WAIT FOR RHCS1 REGISTE 

10084 933300 900209 RDY ‘WAIT FOR RDY BIT IN RHCS1 REGISTER 
10085 033302 004704 2500. “ALLOW 25000 MICRO SECON ps 

i 033304 904704 ; 2500. “ROY MUST SET SETWEEN 

10087 :00 AND SOO00 MICRO SECONDS 
10089 :CHANGE SAVED REGISTERS 79 EXPECTED VALUE _. 

10080 033308 017737 146676 o04S22 Mov DRHWC,J#SAVERE _;RHWC IS UNPREDICT ABLE 

10091 033314 617737 146672 O045e4 MOV JRHSA aeeaVERE+2" RHBA IS UNPREDICTABLE 
10992 033322 LYSEES M OPHCS2, ~(S : Heda 

10093 033326 O42716 177477 BIC #tC(IRIOR>. (SP) :KEEP IR AND OR 

10094 033332 042737 000300 oo4s26 BIC #IR!OR. JHSAVERE+4: CLEAR SAVED IR | - 
10035 033340: 052637 oco4s26 BIS (SP)+, J#SAVERE+4: SET OR IR AS REQUIRED 

10087 033344 904037 o3S440 JSR RO, J#CHREG CHANGE BITS IN SAVED REGISTER 
10038 033350 o02216 RHCS1 :CHANGE RHCS1 REGISTER 

4 

19100 033352 900002 z 22 BIT/BITS TO BE CHANGED 
12101 933354 00090! 1 *NEW VALUE OF SC IS 1 

10192 033356 100000 Sc ; CHANGE SC BIT 

10103 033360 oo0001 1 “NEW VALUE OF TRE IS 1 

10194 033362 o49000 TRE % s CHANGE TRE SI 

1010S 633364 094027 O344ED JSR RO, J#F ILLRE MOV 1 INTO SAVED RHDST 

10198 033370 O02222 RHDST s SAVED REGISTER TO CHANGE 
10107 033272 Ooc00di 1 :DATA 

10109 033374 904037 635440 JSR RO, O#CHREG » ;CHANGE BITS IN SAVED REGISTER 
10110 033400 cO2220 RHERL ‘CHANGE RHERL REGISTER 

‘WOll2 033402 900001 1 ;1 BIT/BITS TO BE CHANGED 
10113 933404 00001 1 : NEW vaLUE OF WLE IS 1 

10114 033406 CO4000 WLE ?CHANGE WLE 

10116 033410 004037 o35440 JSR RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 
10117 033414 o02240 RHDS1 ‘CHANGE RHDS1 REGISTER 
10118 oO3341¢6 oDC00e z :2 BIT/BITS TO BE CHANGED : 
10120 033420 620001 1 ‘NEW VALUE OF ATA IS 1 

10121 O334e2 100000 ATA : CHANG 

10122 033424 000001 1 :NEW VALUE OF ERR IS 1 

iGles 023426 040000 :CHANGE ERR SIT 


tf rus mare gc tiga 7-SEP-76 13:23 PAGE 202 
1 T3? P 


UB.P1 WRITE PROTECT SUTTON 

25 033430 053737 oc046S50 904546 Bis DBATTONT, IBSAVERE+24 :3ET APPROPIATE ATA BITS 
36 FOR WORKING DRIVE IN 
e :SAVED RHAS LOACTION 
39 :COMPARE REGISTERS BEFORE WRITE WAS ATTEMPTED 

30 :WITH REGISTERS AFTER ATTEMPT 

= 03343& O04037 O3sS46 ISR RO, BCOMREG iSReeEN Tne REGISTERS WITH 
34 933442 904522 SAVERE GOOD DATA SAVED IN ’SAVERE’ 

35 O33444 O02266 Wc TEST DATA STARTING FROM ’RHWC’ 
36 033445 900022 18. 318, REGISTERS TO BE COMPARED 
37 033450 033454 o$ ‘RETURN TO S$ ON ERROR 

EE 633452 033460 bg ‘RETURN TO &$ ON NO ERROR 

40 o33454 104042 S$: ERROR Ye sATTENPTING TO WRITE WITH 


O33456 000207 RTS PC WRITE LOCK 
+ CAUSED IMPROPER REGISTER 


HAN 
: 6000 DATA GIVES WHAT SHOULD 


:8€ TH 
;RECEIVED DATA GIVES WHAT WAS 
:THERE AFTER ATTEMPT 


;NOW A READ WILL BE DONE TO DETERMIN per 
READS CAN BE DONE WITH WRITE LOCKED OUT AND 
n3s4E0 6s ;THAT NO DATA ON DISK GOT CHANGED, BUT FIRST CLEAR ERROR 


4 
4 

4 

4 

4S 

46 

4? 

4 

4 

5 

5 

Ee 

S4 033460 004737 O34556 JSR PC, J#CLDISK ;SET R1-RHCS1, R2-RHCS2 

5 :R3- RHDS1, R4- “RHER! 
5 IVE RH-11 INITIALIZE 
5 ise TUP UNIT NUBER 
5 “FILL READ INTO BUFFER WITH \ 
53 033464 004037 O24426 SSR RO, J#CLAREA *CLEBR 256. WORDS FROM REINTO , 
66 033470 o003444 REINTO ; STARTING FROM REINT 
6 256. 7256. WORDS 

: 033474 90000 | 0 :FILL WITH 0 

6 

& 

5 

6 

& 

6 

? 

? 

? 

? 

74 

75 

7 

77 

? 

? 

9 


FILL “WRITE FROM BUFFER WITH EXPECTED DATA FROM READ 
032476 004037 o34426 SR RO, J#CLAREA :CLEAR 256. WORDS FROM WRF ROM 
033502 902400 WREROM :STARTING FROM WRERO 
032504 900400 - 256. 256. WORDS 
933506 177777 =] FILL WITH -1 


;FILL COMMAND 


033510 04037 036532 JSR ——- RO, @#RUN ;SETUP TO RUN FOR DATA COMMAND 
633514 o00000 0 CYLINDER O 

933516 000 CYTE 0 : :SECTOR O 

033517 — 000 ‘BYTE ; TRACK 0 

8 033520 177400 -256. :WORD COUNT = 256. 

§ 033522 003444 REINTO ;BUS ADDRESS 

) ’ :STARTING ADDRESS OF DATA 


Oo 












DERPUB.P 


— b= p< b= 9 2 p= b= 9 9 pe 
co 
Ww 


SBD Lite Oto ene 


Bisisieeiats 
REE 


Cn elersrersrararenareties 
forororororurorororururororure 
TU bb + 


10221 
ee 





Ll eta 


032524 
033526 
633530 


033532 


033540 
033544 


C33550 


033604 


033606 
033606 


000990 
014000 


002360 


013777 


013746 
052716 


012677 


104410 


104043 


004037 
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OO4S16 146444 


002360 
000101 


146442 


036576 


034726 


17-SEP-76 13:23 PAGE 203 
WRITE PROTECT BUTTON 


0 
ECI:FMT22 


READAT 


MOV OSRPYVEC, ARPVEC ; 3ET, TOME yerroR ADDRESS 


MOV JHREADAT, - (SP) 
BIS #GO!TE, (SP) 


MOV (SP)+, JRHCS1 


;COMPARE READ DATA 
JSR RO, J&COMPAR 
W M 


ERROR 43 


;SAVE REGISTERS FOR COMPARISON AFTER WRITE LOCK HAS BEEN 
; UNLOCKED 





JSR RO, J#SAVER 






SAVE REGISTERS 











;BUFFER = REINT 

;00 NOT INHIBIT BUS ee ape 
: 316 BITS Peat ORD FORM 

; INHIBIT ECC CORRECTION 

;D0_ NOT INHIBIT HEADER COMPARE 

;GET REACY TO DO A READAT 

TA WITH 70 IN RHC 


; IF P-CLOCK IS PRESENT 

3OR TO ’TIME2’ IF P-CLOCK IS NOT PRESENT 
: * WILL ONLY SAVE 

:CURRENT CYLINDER ADDRESS 

AND LOOK AHEAD REGISTERS 





;GET READY 1 MOVE COMMAND 
:GET READY TO SET GO AND 
oon TIiTERRUPT 


H 
IN RHCS1 FOR READ DATA 
ATH INTERRUPT ENABLED 









;WAIT FOR RDY BIT TO SET 


W 
B30 AND 17470 MICRO "Seconos 


;COMPARE TWO ao OF MEMORY 
GOOD DATA STARTS Re THT ren 


3256. WOR OMPA 
RETURN TO 7$ ON ERROR 
: RETURN TO 8$ ON NO ERROR 






;WRITING WITH WRITE 







: WRITE LOCK WAS ATTEPTED 


RECEIVED DATA GIVES WHAT 
S READ BACK AFTER WRITE 
‘WITH WRITE LOCKED WAS ATTEPTED 






























Bh BRI 


19249 033616 


3652 
033655 
102S2 
10253 033760 
10254 033760 


S$ 
10257 033762 
033766 


10260 p70 
10261 033772 
033774 


6 
10267 033776 
Ge 


19268 
19269 034002 
10270 034004 


10271 034006 
ee Bea 
ie 


10275 034014 
1nSe8 034016 


034020 


MRINDEC-11-DERPU-B 
DERPUB.P11 T3? 


es 


ocod2e 


104400 
000407 


913746 
000440 
00000 
004037 


002240 
000901 


034020 


104044 
000207 


012737 
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033626 


OO4626 - 
033660 


935440 


035546 


177777 =O41404 





ST20: 


64S: 


6S$: 


9$: 


108: 


17-SEP-76 13:23 PAGE 204 
WRITE PROTECT BUTTON 


RHW RST_REGISTER SAVED 
REVERE START THbobES OF FICE RE 
F RECISTERS ARE SAVE D 
18. eee OF REGISTERS 
TYPE +4 53 TYPE ASCIZ STRING 
BR 43 T OVER THE ASCIZ 
:-ASCIZ (15><12)/08' DRIVE 7 
HOV QBUNIT, - (SP) ;GET UNIT UNDER TEST 
TYPE +4 5s TYPE ASCIZ STRING j 


BR &¢ GET OVER THE ASCIZ 
:;.ASCIZ (15) «12 PUSH WRITE PROTCT SUTTON TO UNLOCK WRITES THEN HIT CONTIN 


HALT 
;THE ONLY BIT THAT SHOULD CHANGE IS WRL-BIT #11 IN RHDS1 


JSR RO, J#CHREG ;CHANGE BITS IN SAVED REGISTER 
RHDS1 ;CHANGE RHDS1 REGISTER 

1 il BIT/BITS TO a CHANGED 

0 ; NEW Man OF WRL IS 0 

WRL CHANGE W Brt 


;COMPARE ALL REGISTERS BEFORE WRITE LOCK WAS UNLOCKED > 
WITH REGISTERS AFTER WRITE WAS UNLOCKED 


JSR RO, J#COMREG iBReeeNT SAVED REGISTERS WITH 
SAVERE :GOOD DATA SAVED IN ’SAVERE’ 
WC *TEST DATA STARTING FROM 'RHWC’ 
18. ; 18. REGISTERS TO_BE COMPARED 
95 *RETURN TO 9$ ON ERROR 
10s “RETURN TO i0$ ON NO ERROR 
ERROR 44 s UNLOCKING WRITES BY WRITE 
RTS PC LOCK BUTTON CAUSED AN ERROR 
000 DATA GIVES WHAT SHOULD 
:RECEIVED DATA GIVES WHAT WAS i 
TH ERE AFTER WRITES WERE ’ 


UNLOCKED 
SON THIS ERROR NO LOOPING IS RECOMMENDED 
:JU ST A HALT a ERROR WILL DO THE SAME 
THING AS ONLY THE REGISTERS ARE READ 
MOV #-1,0#PRITEM CLEAR PREVIOUS ITEM NUMBER 


5 RERRERLEAAAAE ER RELE LEAL AA ALE RRA REREREL RARE RERRE RELATE RERREREREAE 
§ REALLE LEAKE RRA ER REE ERE EEK RE KEKE REARS REREREREREARERERARERER RARER 
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END OF DRIVE 
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5 ER EE REET AAAS 
-SBTTL END OF PASS ROUTINE 


;*1NCREMENT THE PASS NUMBER (SPASS) 
; TYPE “END PASS &XXXXX” were XXXXX IS A DECIMAL NUMBER) 


R GO TO 
STF THERE ISN’T JUMP TO TST1 


















O3426C SEOP: 

O34260 O00034 SCOPE 

O34e6e 905067 144614 CLR STSTNM 33 ZERO THE TEST NUMBER 

O34255 O05067 144716 CLR STIMES ZERO THE NUMBER OF i 
O34e72 O0Seb7 144602 INC $PASS 3} INCREMENT THE P&SS NUMBER 
034276 O4e767 100000 144574 BIC #100000, SPASS ;DON’T ALLOW A NEG. NUMBER 
034304 005327 DEC (PC)+ : } LOOP? 

034306 000001 SEOPCT: .WORD 1 

034310 003022 BGT $DOAGN ss Yes 

O3431le 012737 MOV (PC)+,a(PC)+ ;;RESTORE COUNTER 

034314 000001 SENDCT: .WORD 1 

034316 034306 SEOPCT 

034326 104400 034362 TYPE SENOMG ;; TYPE “END PASS # 

O3432e4 O16746 144550 MOV $PASS,-(SP) 33 SAVE $PASS FOR T YPEQUT 

034330 10444 TYPOS ;GO_ TYPE--DECIMAL ASCII WITH SIGN 
ee 104400 034377 eccTus TYPE » SENULL :;TYPE A NULL CHARACTER 


034336 013700 ooo042 MOV a#42, RO 33GET MONITOR ADDRESS 
034342 001405 BEQ $DOAGN : BRANCH IF NO MONITOR 
034344 900005 RESET ::CLEAR THE WORLD 
034346 004710 SENDAD: JSR PC, (RO) ::G0 TO MONITOR 

034350 o09240 NOP ::SAVE ROOM 

034352 000240 NOP 3 

034354 00240 NOP *ACTLI 

034356 SDOAGN: 


034356 000137 906170 JMP aeTSTl ; RETURN 
034362 005015 O4710S C20104 SENDMG: .ASCIZ <15><12>/END pasé #/ 
034370 ed >, OSiS23 021440 


034377 377 377 OOO SENULL: .BYTE -1,-1,0 ;;NULL CHARACTER STRING 


.SBTTL SUBROUTINES 


THIS FI 
SUSED CHIEFLY FOR HEADER INFORMATION 
CALL IS 


: JSR RO, J#FLHEAD ;FILL_HEADER 
LOC 


rag MEMORY WITH GIVEN DATA " 
LOCATION WHERE SAVED 





MAINDEC-11-DERPU-B 
DER 


PUB.P1l SUBROUTINES 
10392 ; XN 
10393 : XD1 
103394 ; xDe2 
10395 ; 
10396 : 
10397 ; 
10398 
103939 034402 FLHEAD: 
10400 O34402 010146 MOV 
10401 O34404 910246 MOV 
0402 O34406 012001 MOV 
10403 O34410 912902 MOV 
10404 
10405 
0405 
10407 O34412 Ol20e21 1$: MOV 
10408 034414 005302 DEC 
104909 034416 001375 BNE 
10410 034420 Ol2e602 MOV 
10411 -O34422e 012601 MOV 
10412 O34424 O00200 RTS 
10413 
10414 
1041 
10416 sTHIS CL 
10417 ;FILLING IT WITH ANY DATA 
10418 3 CALL IS 
10419 ; JSR 
10420 ; F 
10421 ; N 
10422 ; D 
10423 ; 
10424 
10425 :RE WILL HAVE — OF W 
10426 :R3 WILL HAVE DATA 
10427 --* 
10428 O34426 CLAREA: 
10429 034425 10146 MOV 
10430 034430 0102%6 MOV 
10431 O34432 O10346 MOV 
10432 O34434 012001 MOV 
10433 O34436 01200 MOV 
10434 O34440 01200 MOV 
1043S O34442 010321 1S: MOV 
10436 O34444 005302 DEC 
10437 O34446 001375 BNE 
10438 O34450 012603 MOV 
10439 O344Se 012602 MOV 
10440 O34454 912601 MOV 
10441 O3445& 000200 
10442 
10443 
10444 
1LO44S 
10446 


MACYL1 27(732) 


17-SEP-76 13:23 PAGE 207 


;NOW FILL DATA. 


(RO)+, (R1)+ 


;NUMBER OF WORDS 
DATA REPEATED XN TIMES 
DATA REPEATED XN TIMES 


;;PUSH Ri oN STACK 
: pPUSH Re ON STACK 

?R1 HAS ADDRESS OF WHERE TO SAVE 
:Re tae NUMBER OF WORDS 


; SAVE. adh 
:DECREMENT COU 
; BRAN CH_IF INCOMPLETE 
POP STACK INTO Re 
: POP STACK INTO R1 


EARS ANY BLOCK OF MEMORY. 


RO, J#CLAREA 


;NUMBER_OF WORDS 
:DATA TO BE FILLED 


;R1 hha HAVE STARTING apoE OF BLOCK TO BE FILLED 





;sPUSH RL ON STACK 
;;PUSH Re ON STACK 
::PUSH R3 ON STACK 
ger 
;MOVE DATA | 
rBRANCH IF NOT COMPLETE 
TACK INTO R3 


itpop Stack INTO Ri 
RETURN TO MAIN PROGRAM 














i : 
; : : 
z i - 
s s ns 5 : 
; 5 ef aoe ar 
3 4° na Gee ae 
z - mi 
= 
oi E 
5 ee 
2 
eka rng 
. £ See Babewge peas ae BEgeEY BBSE 
: sag st E a 6 8 


SUBROUTINES 


3265 035544 000200 





' rw. 
tr’ ALL 

‘ ‘ 

tir 
yh 


SSR SSSSSSSSSSUREEREDER ih SsRGESOREEREROEOE —— 


ih: 


Hh 





' 
Biot 
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inept su MACYI1 276732) 
Pll SUBROUTINES 

9321 035674 012601 

9$3ee 035676 000200 

$323 035700 000000 


30-DEC-76 


4$: 


MOV 
RTS 
. WORD 


(SP)+,R1 
RO 


COl 


10:30 PAGE 179 


::POP STACK INTO Rl 
‘RETURN TO MAIN PROGRAM 
: TEMP STORAGE 


en me wes ee es ee ee ee oe ee 


oO 


a] Sve 


E 
~ 
= 


je 


_ 
"f 
— 
al 
Y 


a 


Geset CS ee Biss 


RERER RARER i do caus aa iia nane Mere peta aa a aerate tapy fF 


£ 
Oo 
Be 
= 
= 
N 
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— 1358. A OF TAL, EXPLAINATION OF HOW THE LOOP ON ERROR WORKS. 
HITTING IF THE LOOP ON ERROR SWITCH IS SET, THE 
SBROGRAR GOES BACK = USUALLY BACK TO THE BEGINNING OF THE TEST. 


;WHEN THIS OPERATOR ae eo ae Lor IS USED THEN THE POINT 





:T 
THe RESTRICT GO ARE: - 
ie IT T 
If Cone IDEA BANS TED BEAST TON 
: 
; IF LOOP it 
He i Pete ews 
° 
bacven LOOPING FOR F THE LOOP SWITCH IS PUT DOWN THEN 
“NORMAL OPERATION WILL CONTINUE. 
TESTAD: O FIRST ADORESS OF TEST 
1% heaters PS TaTus S ZERO 
175935 041404 oh 8-1, J8PRITEM 
035724 TYPE 44 
crt uae Sis: um 
saat 53 ASCIZ (15) <129/THE NUMBER / 
004514 "MOV QsTSTNM, -(SP) ii TO TYPE TEST 
036002 Tire get” ASCIZ 5g 
sa 33 ASCIZ «15> <12>/THE eh0e Bkok E 
001110 : HOV DeSLPERR,-(SP) ;GET READY TO TYPE LOOP BACK PC 
1 SCRLF 
het rire att 3; TYPE ASCIZ STRING 
a +; .ASCIZ (15) «12> /se4 SuIsCH Prone Looe by ERROR OR LOOP ON TEST/ 
036140 * ‘TYPE +4 12 STRING 
BR 675 ier. ASCIZ 
a +; .ASCIZ <15)<12)/ IRST PC OF THE TEST TO BE LOOPED ON/ 
036226 " ‘TYPE +4 sTYPE ASCIZ STRING 
BR 68s +t CET OVER THe 
a 5; ASCIZ (15><12>7 FOLLOWED BY AGE RETURN /<15><1e> 
" - RDOCT 
R00 a2, (SP) GET LPAOR 
ll (SP)+, S8SLPAOR 
036312 TYPE +4 :: TYPE ASCIZ STRING 
695 *:GET OVER THE ASCIZ 





MATNDE 


eeseeee 


sgigsasstsonsecassccanascasaas § 


OUWLWwMe-O 
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l SUBROUTINES 


B3e3e0 104400 036356 
000440 


036354 
036456 
O364S6 104407 
036460 012637 001110 
036464 013746 001106 
036470 000002 
036472 
O3647e O10046 
036474 010146 
beso O1e700 9022 
1 2210 
Naat Ne ebE 
10 bie70e 002- 
036514 013021 
O36S2e 012602 
G3e524 12601 
012600 
036530 000207 





EO] 
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tee :;.ASCIZ (15><12>/TYPE THE PC WHERE YOU WANT/ 
TYPE at! : TYPE ASCIZ STRING 
nae :3.ASCIZ (15> <12/ +igF LA QUEE Hf Pagh? BACK TO FOLLOWED BY A CARRIAGE RETUR 
agi SP)+ G¥SLPERR GET LPERR 

MOV Sas SLPADR, - 

RTI 

sTHIS SAVES THE CONTENTS OF ALL HARDWARE REGISTERS 

sIN N HEHORY LO LOCATIONS 7 RGED ERO FROM i "WC" a wece" 

: TH IS 1S DONE ‘ DONE TH SAVED LOCATIONS 

+ ENRON te ee srg. HEEL Vee. DATA regi DIFFRENT 
PUTREG: 

MOV RO, -(SP) ;;PUSH RO ON STACK 

my Re 

MOV SRHWC, RO 2 OT OF REG 

MOV swe, Ri START OF WERE SAVED 

MOV SRHEC-RHWC+272,R2 ; NTO Re 
10S: fe Aagetpst ; SAVE 

1 

MOV (SP)+,R2 ;sPOP STACK INTO Re 

MOV (SP)+'RI + POP TACK INTO RI 

HOV &S )+°RO ‘POP STACK INTO RO 

1% 











A ata MACYL1 271732) 
DERPUB.P11 SUBROUTINES 
auiz 
18 
pal 
a 
012077 143472 
012077 143480 
pignr? fagH 
Gise7? 
12677 14343C 
12077 143436 
013077 143422 


Beaes 





ae ee en 





Ol 
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if 5 THIS. A A * ae COMMAND SETUP SUBROUTINE 


: Isk RO, J8RUN poer 
: .BYT : 
:- BYE : Fale 
: -W WORD COUNT 
: I Boe ABbREee INHIBIT 
ee fEC “= Eee Comme ction INHIBIT 
: eels COMPARE INHIBIT 
: COM ss 
RUN: MOV (RO)+, @RHCA ;CYLI 
MOV (RO)+,aRHDST ;DESIRED SECTOR/TRACK 
MOV (RO)+, + WORD 
ad (RO)+ ie 
aeunIt -(SP) =; 
OV (noe, tse) IT he ane AAD BAL tO RRC priese 
MOV (RD); nate carpet, iF fhe of Hee IT, HEADER 
MOV 3(RO)+, @RHCS1 
RTS RO Sra 10 AMAL PROGRAN 


jTHIS 1S A i BLOCKS IN MEMORY 
iS tas (Obes OF 
RY HAS ONE MORE THAN OF WORES WORDS TO BE COMPARED 
;CALL IS 
: JSR RO, 28COMPAR 
ot pe 
; N ars WORDS COMPARED 
; RG RETURN LEN oN AG SAR ERROR 
COMPAR: 
MOV Rl,-(SP) ;;PUSH R1 ON STACK 
MOV =eap) Pus RS ON Stack 
MOV RY, -(SP) HF RY ON STACK 
MOV -(§P) 3 RS oN TACK 
MOV (RO)+,R1 : DATA 
MOV (RO)+, : apna BUFFER 
MOV Rp} : 
MOV (RO)+ * RETURN 
MOV (RO), RO “RETURN ON NO 
MOV R3,R4 "NO OF WORDS TO BE COMPARED 





(R2) FOR ERRORS 


IF ALL NOT DEVICE 


Soe% eee 


; COMPARE WITH TEST DATA 
; BRANCH mn hd 


;FOR ERROR WORD NO 


GO1 
30-DEC-76 10:30 PAGE 183 


» (R2)+ 


R4, d#ERWORD 
R 


(RL)¢ 


R4 
es 
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SUBROUTINES 


Bc sae 
i euaiaaaians 
eeeedeeeeeeee tases a iti 


MAINDEC-11-DERPU-B 


DERPUB.P11 


iii 


TAO 


oe 


spuspeceguw sapasets 


ee 


mG od ot ed 4 ( 
ooooocdc 


IZ 


IZ STRI 


SENT BASE ADDRESS OF REGISTERS IS / 


NEW BASE ADDRESS FOLLOWED BY °CR’/ 


ASC 

T_OVER 
;GET READY TO TYPE OLD BASE 

3; TYPE ASCI 


;:;GET OVER 


(15> <12>/TYPE 


 ; TYPE 
° > GE 


415) «(12> /PRE 


$1,-(SP) 


a Wa 
as Gs a 


SS65 GEESE 
A 


O-UM Tin wor. @ 
at ed ad td od 


RRRRRRRRR 





OF REGISTERS 
TRING 
ASCIZ 


OLD BASE 


TARTING ADDRESS OF RGISTERS 
NEW BASE 
he 
SENT VECTOR ADORESS IS / 


;GET READY TO TYPE OLD VECTOR ADDRESS 


sT 


F 
;;GET_ OVER 


pxpasieleeai 
~ 
a 
w 
a § 
i ee 
mn 
Was, 
we O-« 


. : 


ET OVER tHE factz 


;SETUP VECTOR ADDRESS 


a 
Oo 
3 
> 
qa 
g 
a] 
a 
Oo 
re 
Qa 
ond 
So 
ty 
a 
> 
- 
tas 
Qa 
eg 
So 
w 
: 
- 
Pe 
¥ 
- 
p. 
~ 
Tw 
et 
- 
~ 
wm 
— 
w 


(SP) +, GHRPVEC 


ponerse 


ne ate, Benenuut 4} 


67§: 


012637 002204 


104407 
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SUBROUTINES 

104400 037276 
000421 


037270 
037274 


002216 
037412 


seeps oRees 


ee 


002294 
037460 


Beesaaee 
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7 104400 037346 
000414 


037376 695: 
70S: 


027514 718: 


HO 1 





a) Pewee ae 
;;.ASCIZ (15><12> RESTART PROGRAM FROM 200 OR 210/ 
a ee ee 

3 .ASCIZ <15><12>/NEW BASE WILL REMAIN/ 

MOV JBRHCS1,-(SP) 

TYPE’ +4 TYPE ASCIzZ ae RING 

BR ' :GET 0 ASCIZ 

+: ASCIZ <15><12>/NEW VECTOR WILL REMAIN / 
MOV DBRPVEC, -(SP) 

TYPOC 

Me a Sr 

+s ASCIZ <15)<12>/UNTIL PROGRAM IS RELOADED 


HALT 


— eee oe -- 


a rn a ee a ee ne a ea eee eee eee eee se ae eee 


Ade IS | cali MACY11 27(732) 30-DEC-76 10:30 PAGE 185 
DERPUB. P 


nr on rere - - - - eee ee ee 









ll SUBROUTINES 
9551 0375 RPVECT: 


#55 el cr adie ae? LiGET OVER THE ASciz 


:;.ASCIZ /TRAPED FROM PC = 


54S: 
TYPOC ; TYPE FROM P 
55 BS bie77) 037516 142426 MOV @RPVECT, JRPVEC i RESTORE Habs RPOY VECTOR 
9558 HALT : CHANGE TO CONTINUE 
9ss9 
9560 
9561 





oan et 1-DERPU-B 
DERPUS.P11 SUBROU 


Jj 


pine 
WNNwns 


SE a 


See 


037560 - 
cet 
037570 OO00416 
BEE NES 
037604 005737 
037610 012637 
| pele 000463 
fee i 
000423 
037626 032777 
fee ts 
037652 von eh 
ee Bice 
037674 01676 
10 
C) 
037716 
es 
037756 
037764 


REPKE ERE. 
ONOUWSW-O 


MACYIL 27(732) 
TINES 


040000 141350 


141212 


JOl 
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¢ RERRRERARERELAEL ELAR RELELS 


Iti ttitiliiiiitiiielitierititrerereerererererrere rere rss 
-SBTTL SCOPE HANDLER ROUTINE 


jEeNB" Gab #DE TEST NbRaekt stot) Ie att Ret. cDISPLAY7:0> 


SAND L 
j ATH SuiToH 1 OPTIONS PROVIDED sry mi TROD TINE ARE 
eSullst fa TIONS 
fra 7 : IN SWR<7:0> 
; #CALL 
;# SCOPE 3; SCOPE=IOT 
fee ” IT ITJ4, aSWR PRESENT TEST? 
+ Be OgBaEAY eave 
-S88B88START OF CODE FOR THE XOR rele a 
$XTSTR: BR 6$ RUNNING ON THE “XOR” TESTER CHANGE 
A ita as TION TOA “NOP>_(NOP=ENO) 
HY REBT ONERAVER i CONTENTS OF = 
nov reas SSERRVEC ie te xR VECTOR 
BR SSVLAD *3G0 T orn y | 
SS: CMP (SP )+, (SP) elo AFTER A TIME OUT 
MOV (SP)+’ S8ERRVEC ORE VECTOR 
BR 75 LOOP ON TEST 
6S: ; #88sEND OF CODE FOR THE XOR’ TESTERSsens 
BIT 881TO8, ISWR ;LO0P _ON SPEC. TEST? 
aoe ae STSTNM Hee Hee GHT TEST?  SWR<7:0> 
BEQ SOVER :BR IF YES 
2S: TSTB = SERFLG *HAS AN ERROR OCCURRED? 
BEQ 3$ ;;BR IF_NO 
CMPB SERNAX, SERFLG ::MAX. ERRORS FOR THIS TEST OCCURRED? 
BHI ;;BR IF NO 
i: Qe eee 
7S: MOV SLPERR,SLPADR ;:SET LOOP ADORESS TO LAST SCOPE 
4§: Bree AB THE ERROR FLAG 
CLR STIMES He THE NUMBER OF ITERATIONS TO MAKE 
BR 1s 3 TO THE NEXT TEST 
3S: BIT #B81T11, aSWR Hy IT ITERATIONS? 
ist g siTP FL NHI i + error 
INC i INC Prerat Fon 
CHP STIMES, SICNT 710 ITERATIONS MADE 
1S: MOV #1, SICNT ie kcteta e ON RF eb COUNTER 
MOV SMXCNT, STIMES 1 NUMBER OF ITERATIONS TO DO 
SSVLAD: INCB $TSTNM + CUNT ST NUMBERS 





MAINDEC-11-DERPU-B 
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9619 037770 011667 
03 011667 


9620 

ees) 

9623 040012 016777 
9624 016716 
5b 
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141112 
141110 

141103 
141064 141120 
141062 


KO1 
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MOV (SP), $LPADR 
MOV SEs, :SLPERR 


SOVER: MOV STSTNM, DISPLAY | 
MOV SLPADR; (SP) 


RTI 
SMXCNT: 4 








tae nore Looe Prien 


SePatarieth Nl 


; ;DISPLAY TEST 
UDGE RET URN ADORE 


FIXES PS 
{TMAX’ NURBER OF ITERATIONS 


Pee 
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DERPUB.P11 SCOPE HANDLER ROUTINE 
9627 
9628 
O29 
9630 
ou 
9633 
GRAY 
= 
9639 
240 oom 
Sb4e ie 010146 
oun YOO ft 
oo ioe es 
: ce ee 
3 Boosts o000sS 000001 
9651 040064 005000 
a 
ees OiGiGG SieOn ove 
9657 ae te 
zee Gl? Batra 
eee Gioia Oolone 
ors 1 10571 
ees ible ites 
9667 Diol ae 1 177777 
eee Dolan (eerbe Doome) 
70 0401 
$3 EBS BES eco 
9673 1 
z Fale ee 
a8 173 105726 
78 ay 100003 
oh Gimece foepyy 07777 77% 
Foy 040206 BISeDS 
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5969 9 98 9 9 9 9 9 9 9 9 
-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


HeovGheD beCthat HEETT) (NGHeER alo Fvbe 1f. DereNMURe on MRETHER the 


SOE ORE THe FI 
ste 
3% MOV 
3% TYPDS 
STYPDS: 
MOV 
MOV 
my 
MOV 
MOV 
BPL 
NEG 
MOVB 
1§: CLR 
MOV 
MOVB 
es: CLR 
MOV 
35: Sus 
BLT 
4§: ADD 
TST 
ac 
BMI 
~ 
MOVB 
6S: Bie 
7$: BI 
MOVB 
TST 
CMP 
BLT 
BGT 
MOV 
BR 
8S: TSTB 
- 
9S: CORE 
MOV 
MOV 


POSITIVE OR NEGATIVE 
a pigit OF THE NUMBER. LEADING ZEROS WILL ALWA 


NUM, -(SP) 


ra ee 
= 
4 

s 
es 
- 
~~ 


- 
e: 


TBL (RO) ,R1 


=8An 
oe 


B2URS 
R 


— 


Berge 


28 
Brn 
~ L 
+ = 

~~ 
Fa 
— 


ab" 55 
sae - 
—+ 

oO 


nian ante | ~o 
GEg_BQRRATS 
++ 8 + B 

~ 

t 

TJ 

= 

Pa 

~ 


A SPACE OR A MINUS SIGN er ae —_ 


;;PUT_THE BINARY NUMBER ON THE STACK 
3;G0 TO THE ROUTINE 


NEG. 
$s ZERO THE CONSTANTS INDEX 
ts ATR To A BLANK 


:ECLEAR NUMBER 
fn th eet DIGIT 


ue joo BCD DIGIT BY 1 


ae Tf BCD 
99 


bjt TO. 
ae 0’S? 


G 
1a sue IF Not NOT TALREADY A DIGIT 


i PUT TH! Beene IN THE OUTPUT BUFFER 
tiaHecK THE T NDEX 


IT 
FIRST NON-ZERO? 
OT THE TethiTRafoR FOR TYPING 


K INTO RS 
EOP TACK INTO R3 


MO1 
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012602 


0244 TYPE 
Baoade 000004 HOV 1 Nou Bu TYPE THe MURBER 
:sRETURN TO USER 


SDBLK: .BLKW 4 
5 REA KRLSLKLEKRERRASLLSKLEAESSRESS SEALE ERE REEL SSE RMS LEE RELEASE LEK ELS 
.SBTTL TYPE ROUTINE 


; ROUTINE TO_TYPE MESSAGE . FoF TULL gg TERMINATE WITH A O pve. 
eee ‘tetlete MEL TNSERT a NUMBER TER FFT ER A LINE F 

;# USED AS THE” F IELER CHARACTER. 
sere: SILL CONTAINS He NUMBE NUMBER OF TP TELER CHARACTERS REQUIRED. 
pANOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


*#CALL: 
:#1) USING A TRAP INSTRUCTION 
i TYPE  ,MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


Sees 


TYPE 
MESADR 


331 a A TERMINAL? 
iit HERE IF NO TERMINAL 
; LEAVE 


9710 
9711 
9712 
9713 
9714 
aot? 
971 

9717 
97 18 
$71 


BaeeeEed 


OF oaths STRING 
TER TO BE TYPED ONTO STACK 
a T_THE TERMINATOR 


POP IT OFF THE STACK 


a aaa 
3a 


orm 
$25 


z 


3 


= 


2s 
PC, STYPEC 
sFiitc, (SP)+ 


: NEXT CHAR. 
SNULL , -(SP) oe R CHARS. NEEDED 
1(SP) 1 ED TO BE TYPED? 


G GpSpeResneceesesesseiee) 
eS 


BARA DAABAAS ATARI 





NO1 
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RPUB. P11 TYPE ROUTI 
9739 040360 002770 BLT b$ ;)BR IF NO--GO POP THE NULL OFF OF STACK 
9740 040362 004767- 000032 aR PC, STYPEC NULL 
a poe 195367 000072 pece §GHARCNT i PQ HOT COUNT AS A COUNT 
74 
9744 ;HORIZONTAL TAB PROCESSOR 
974% 040374 112716 OOD040 8S: MOVB #40, (SP) REPLACE TAB WITH SPACE 
ee a a 
aug aye Aae7ee 9s” :: TAB STOP 
$750 040414 005726 TST (SP)+ ; sPOP SPACE OFF STACK 
1 O40416 26 BR 2s TER 
9752 040420 108777 140S2e2 STYPEC: TSTB S75 baat TIL PRINTER IS READY 
oped Bape 100333 ooo0g2 140514 MOVB S{epy. aSTPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
9755 pie ibrar 000015 o0000e2 CMPB #15, 2lSP) j SBRANCH IF 
ape 000014 aNfe Se HARCNT i 
9758 00040 BR STYPEX * EXIT 
9759 1 000012 oo000e 1S: CMPB3s«#12, (SP) tt H IF 
aoe is Pita Secon” tithe SPACE 
aa BONES ApeseA SCHARCNT: . 0 + COUN ; 
3763 O4O466 000207 STYPEX: RTS PC 
9765 000011 tHit=11 
3766 000200 TCRLF=200 
anes : PAKEXELKL REE KRERE SKE RL ARE RSLS RE REE RAL RSE RA ANS HARE RE RE RRA REA SESE 
$770 .SBTTL TTY INPUT ROUTINE 
9772 O40470 oD0000 STKCNT: .WORD 0 T OF ITEMS IN QUEUE 
$773 O4047e2 gq0009 STKQIN: .WORD 0 tT POINTER 
8774 040474 STKQOUT: .WORD 0 {OUTPUT POINTER 
§775 040476 900011 STKQSRT: .BLKB 9. :? TTY KEYBOARD QUEUE 
ogre Suge 3 EVEN 
apne :4#TK INITIALIZE ROUTINE 
9780 THIS ROUTINE WILL INITIALIZE VHE TTY KEYBOARD INPUT QUEUE 
3781 ; ¥SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 
9783 t xCALL 
9784 * JSR PC, STKINT 
785 1 RETURN 
9787 040510 005067 177754 $TKINT: CLR STKCNT ;; CLEAR COUNT 0 OF ITEMS IN QUEUE 
$788 14 012767 040476 177750 MOV #STKQSRT STKQIN ; {MOVE THE STARTING ADDRESS OF THE 
3789 OuObee 016767 177744 177744 MOV STKQIN, STKQOUT $;QUEUE INTO THE INPUT & OUTPUT POINTERS. 
379 012737 040560 go0069 HOV #ST Kon ge TKVEC Eee THE KEYBOARD VECTOR 
He papas rennet TST se0t4 3 Bar BONE FLAG 
$783 O405S50 012777 000100 140364 MOV #BIT06,aSTKS ss; INTERRUPT 
$794 O40556 000207 RTS PC ::RETURN TO CALLER 





Oe 
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DERPUB.P11 TTY INPUT ROUTINE 


:#TK ROUTINE 

STIS ROU it ine WILL SERVICE THE TTY KEYBOARD INTERRUPT 

érksrv: aSTKB, -( THE sGHARACTER 
+8) HSIN ne 


PRee: 


(SB), 








tee 
9280 CMP ( $3 A CONTROL ¢? 
i ie RBM Tag 1 
IMP OBERSEL He ¢ START, 
5 1S: CMP 89. , STKCNT pats FULL 
99 
ae * RT 
an ts! tSP)¢ Hcl Ef Gharc renee TER” be OF STACK 
: NC TK: HH 
au Be Banana TD BARE 
1 INC rh ; THE 
Sis ce TKQIN, 8STKQEND $s THe ? 
ie a HOV TKQSRT, STKQIN ;; THE POINTER 
aia He at SHH 
9819 *#THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
Sst Yuen ROCHR A SINGLE CHARACTER FROM THE TTY 
9822 +i RETURN HERE +3 TER IS ON THE STACK 
ey ag SROCHR: MOV (SP), =(SP) 33 THE PC AND 
oo00004 00002 MOV 4(SP),2(SP) 33 
000004 CLR 4(SP) He FOR A CHARACTER 
-(SP) 33 T Lo A NEW 
040712 HOV #15, -(SP) 3B Hi . 
1 4 177552 1S STKCNT +3 WA aa GeRTTR 
a 177544 eg $3 
ol nn a 
1 040507 ow Tk St vceno' tt t THE ENO? 
a a 040476 177520 Rov rwosnt, srkaouT? He PornteR 
9840 JHE aaa 
ea ianAIS: ROUTINE WILL INPUT A STRING FROM THE TTY 
984 is BOUIN, oe Heooness Or EIRST cuanacTER WILL BE_ON THE STACK 
#2 * i He TR WEEE af A By or Rg 
1 SROLIN: ey Tih 83 $3 
1 : tytn 8 ss 
ooa5 pines Mae Bui bee ES CMP 49,,R3 33 FULL? 
8850 040770 101405 BLOS ‘s ::BR IF YES 








a“, 
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C-11-DERPU-B MACYLI 2717 
ll TTY INPUT ROUTINE 
040772 104405 ROCHR ::G0 READ ONE CHARACTER FROM THE TTY 
oNo77 112613 MOVB = (SP) +, (R3) GET CHARACTER 
122713 000177 CMPB «8177, {R3) 


4§: 
3S: 


ide 
8 
Bk 


+ Hd crx wo a ADDRESS OF THE 
tO TUST TRET ASCII CHARACTER GH iT 


i 
38882999 389 


+ Rae 





Ease stsbae 
S 
= 


SLLSLLELLSLLELELEL 


Bo Des fe f= G9 Bm Fat D- fen Dis Peo Paw fue Pio Bw 


oe Qs: < ASCII CHAR. TO TYPE 
STTYIN: . ’ BYTES FOR TTY INPUT 
075 136 006503 000012 SCNTLC: .ASCIZ 7#C€7<15><12 


SEROM THE TTY 


3S J a a a 
-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


CHA Sey ONS AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
t ‘ WILL TCL BE TYPED 
ane er eas Loe 
Fr dee meh 4, Basse 


SEES ETEE ECE LULL SeRCRER RRR on Le 


il 1 SROOCT: (SP), -(SP) DE SPACE FOR THE 
Bios Oibeee oo0004 oo0002 Soy uCSPY SP) ti thput 

1112 10046 MOV RO, -(SP) 33 

1114 c 46 MOV RL, ~( ) HH a 

ll ey » 7 (SP) 3 

ll 18: IN ss Tek 

ll MOV (SP)+,RO He 1ST CHARACTER 

it 000100 HOV RO, 5S $3 

Il CLR Re as 

He me Bes rs el perm 

il 16 000060 CMPB = s«8’0, (SP) Hiro § CHARACTER 

tive 000067 Ena a7, (SP) HHI5 AN Octal Olcit 

paiies i55c}8 BLT ug ’ 





DeRPUB-P1L READ A 


4308 Oy 


iS UMSMS Bsc Sn soe es 
PLELLLLLELLLLELLELELEL 


So 


Bae ba = fee fm P= poo be Gam ho be he 
pao Geo 
<£ 


sae 





MACY11 27(732) 


30-DEC-76 


OCTAL NUMSER FROM THE TTY 


177770 


000012 
000026 


001220 


ADD 
3$: Fer 


DO 


10:30 PAGE 193 


ar 
-Brgs 


gro 


BS BS 


2 








33 #2 
54 
338 


;;STRIP THE ASCII JUNK 
;;ADD IN THIS DIGIT 


SLEBM,TeRawaTOR FROM STACK 


;;POP STACK INTO Re 
;;POP STACK INTO Rl 
3 1 BOF TACK INTO RO 


4 PARTIAL FROM STACK 
58 A TERMINATOR 
} TYPE UP THRU THE BAD CHAR. 


ssnae “CR” & “LF” 
:: TRY AGAIN 
;;HIGH ORDER BITS GO HERE 








MAINDEC- 7s Ree 


PT. SERERPRRREG Ga Donut cnuer ee Eee eect ancien : 


Ouises 


SSEe aN 


pee be 
CoO 


PERE REEERREE ERE R REE ER 
RRA sSeROROESS ORS 


MACY11 27(732) 
READ AN OCTAL NUMSER FROM THE TTY 


oo4e44 


137554 


Oe 
30-DEC-76 10:30 PAGE 194 


5 8 48 8 9 9 9 9 9 9 9 9 A a A ak 
-SBTTL ERROR HANDLER ROUTINE 


itsave pe anor Teh MOREE ano THE T FE ADORESS OF POTHETERROR CALL 


ae Sate OPTIONS PROV BY THIS ROUTINE ARE: 


j#BM1 351 IMIBYT TYPEOUTS 

: i L 

:#CALL 

ti ERROR N ; sERROR=EMT AND N=ERROR ITEM NUMBER 

SERROR: 

REGSAV: 

8-1,08ERFLGS | ;SET ERROR FLAG 

REGSAL: 

7S INCB SERFLG ;SET THE ERROR FLAG 
RY Sten orsnar /Btelat fee une hoe RROR rnc 
BIT SrTiO’ SOR 3 Oh ERROR? 
Tee Hit 

1S: INC L NUMBER OF ERRORS 
HOV (SP), SERRPC *:GET ADORESS OF ERROR INSTRUCTION 
MOVB ITEMB Hid ahve THE ERROR ITEM CODE 
BIT T13, 
JSR PC. SERRTYP to IER E ERROR ROUTINE 
TYPE =, SCRLF 

SS otst + s HAL 

; BPL gone sae 

3S BIT 1709, aSWR As  SuITCH SET? 
MOV (SP) Fon E 

4§: ey if AN E ADDRESS 

ot MOV SESCAPE, (SP) + Ppae E RETURN ADORESS FOR ESCAPE 


Se ee oe ara 
a 1 ave Ing, Fan Wee TQ TERMINE WHICH 


OR TABLE” (SERRTB), 
ant NR ANCERNING 
ane IN-ORMA 1 FROM evoune, 
GORINOR CHEINGES” 


2 
& 


DERPUS. P11 ERROR MESSAGE TYPEOUT ROUTINE 
9986 ;#FIRST IF SUITCH 6 IS SET AND SuITCH g RESET THE 
9987 HALL REGIST ER CONTENTS WILL BE TYPE REPORT I THE ERROR 
ae HET Meth HERSEY TER EE Di 
?#QND NOT THE E MESSAGE AND 
9991 Ov 1404 000000 PRITEM: O Pee REVEGUS 17 MNO. LOCATION 
9992 ov 013746 001136 SERRTYP: MOV ONSHR, - SP) CH SETTING 
9993 ale Ove? 16 1rer? BIC resob, (SP) ieee ONLY Si SUTTCH ge AND 6 
Gage Buluds BBE AaF ENE neue, iP fot Rof BRANCH’ 
a sc i 
a3 :OR IF SW HPS ReRET ano sw 6 15 RESET 
16000 041432 es: 
10001 041432 104400 041440 TYPE +4 s;TYPE ASCIZ STRING 
19006 041436 000406 BR 64s GET OVER THE ASCIZ 
1 >: ASCIZ (15> <12> RAW = 
10004 041454 4S: 
10005 O41454 013746 002266 MOV DBWC, -(SP) GET READY TO TYPE RHWC CONTENTS 
10006 O41460 10440] TYPOC 
19007 
1 p08 OOS 041462 104400 041470 TYPE +4 ;; TYPE _ASCIZ STRING 
10010 O41466 OGO0406 BR bss *GET OVER THE ASCIZ 
10011 +; .ASCIZ eR = 
10012 041504 65S: 
10013 041504 013746 002270 MOV asBA,-(SP) GET READY TO TYPE RHBA CONTENTS 
10014 041510 104401 TYPOC 
1DDie 
10017 041512 104400 041520 TYPE +4 5s TYPE ASCIZ STRING 
10018 041516 000406 BR “GET OVER THE ASCIZ 
10019 :;.ASCIZ (15)<12>/RHES2 = 7 
10020 041534 66S: 
10021 041534 013746 002272 MOV ascS2,-(SP) ;GET READY TO TYPE RHCS2 CONTENTS 
10022 041540 104401 TYPOC 
{pod 
1S guisue 104400 041550 TYPE +4 ;;TYPE ASCIZ STRING 
1002 041546 000406 BR 7$ T OVER THE ASCIZ 
10627 +s ASCIZ (15> «12> /RAGSL = 
10028 041564 675: 
10029 1568 013746 002274 MOV a8CS1,-(SP) GET READY TO TYPE RHCS1 CONTENTS 
19030 1 104401 TYPOC 
- r 
ties ne 041572 104400 041600 TYPE +4 ;;TYPE ASCIZ STRING 
10034 041576 O00406 BR GET OVER THE ASCIZ 
10035 :3.ASCIZ (15><12>/RHOSL = 
Oa? DHELY O137%6 002316 oes: Ova. =(SP) GET READY TO TYPE RHDSL CONTENTS 
, ini - . 
10036 ete Toaagr TYPOC : : 
tix, 
10040 
10041 O41622 104400 041630 TYPE = ,.44 :: TYPE ASCIZ STRING 





G02 
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1ooNs 041826 000406 »-GET OVER THE ASCIZ 
10043 / 
10044 


BR 69S 
++. ASCIZ (15><12>/RHERI = 





041644 693: 
1 pub 013746 002276 MOV. @WERI, - (SP) :GET READY TO TYPE RHERI CONTENTS 
l 1650 104401 TYPO 
1004 
it 041652 104400 O41660 TYPE +4 ;; TYPE ASCIZ STRING 
10050 O41656 000406 BR os ::GET OVER THE ASCIZ 
10051 »+ ASCIZ (15)<12>/RHER2 = 7 
10052 041674 70S: 
10053 041674 01374 002302 MOV asER2, -(SP) ;GET READY TO TYPE RHER2 CONTENTS 
10054 041700 104401 TYPOC 
10055 
1 
ippes 041702 104400 041710 TYPE +4 :s TYPE ASCIZ STRING 
10058 041706 O00406 BR >is *:GET OVER THE ASCIZ 
10059 :3 .ASCIZ (15)<12>/RHERS = 7 
10060 041724 71S: 
10061 041724 01 00231C MOV DBERI, -(SP) GET READY TO TYPE RHER3 CONTENTS 
10062 041730 104401 TYPOC 
{bes 
10065 041732 104400 041740 TYPE +4 s TYPE ASCIZ STRING 
10066 041736 OOO406 BR 2s *:GET OVER THE ASCIZ 
10067 :;.ASCIZ 415><12>/RMOST = 7 
1PPES Sized 013746 002300 _ V-aRDST,-(SP) GET READY TO TYPE RHDST CONTENTS 
1ppe4 puted That hoc 4 . 
10071 
10072 
10073 041762 104400 041770 TYPE +4 +: TYPE ASCIZ STRING 
10074 041765 O00406 BR 3S pageT OVER THE ASCIZ 
1 3 ASCIZ (15><12>/RHGA = / 
10076 o42004 73S: 
10077 O42004 013746 002306 MOV asCA, -(SP) GET READY TO TYPE RHCA CONTENTS 
10078 O42010 104401 TYPOC 
10079 
{bet O42012 104400 o42020 TYPE +4 ;; TYPE ASCIZ STRING 
10082 O42016 000406 BR $ aise OVER THE ASCIZ 
10683 3;-ASCIZ €15)<12>7 = / 
10084 o42034 74S: 
10085 O42034 013746 002312 MOV aeAS, -(SP) GET READY TO TYPE RHAS CONTENTS 
1008% 042040 104401 TYPOC 
i 
10089 104400 o420S0 TYPE +4 ; TYPE ASCIZ STRING 
10090 O42046 000406 BR $ GET OVER THE ASCIZ 
10031 at ++ ASCIZ (15)<12>/RHOF = / 
1008s Be0e 013746 002304 MOV DaOF ,-(SP) :GET READY TO TYPE RHOF CONTENTS 
1 2070 104401 TYPOC 
10036 
itd 042072 104400 042100 TYPE =, . #4 :;TYPE ASCIZ STRING 





Oe 
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i 042076 O00406 BR 768 . GET OVER THE ASCIZ 
i ;3-ASCIZ (15><12>/RHMR = / 


10100 o42114 76S: 
10101 042114 01374 002314 MOV BNR, - (SP) :GET READY TO TYPE RHMR CONTENTS 
10102 042120 104401 TYPOC 

10103 

101 

tte 042122 104400 042130 TYPE +4 ; TYPE ASCIZ STRING 

10106 042126 000406 BR 7g :GET OVER THE ASCIZ 

101 +3.ASCIZ <15><12>/RALA = / 

10108 o42144 778: 

10109 O42144 013746 002332 MOV DKLA, -(SP) ;GET READY TO TYPE RHLA CONTENTS 
10110 O421S50 10440) TYPOC 

Tees 

10113 o4e152 104400 042160 TYPE +4 :: TYPE ASCIZ STRING 

10114 O42156 000406 BR 28S **GET OVER THE ASCIZ 

1011S :;.ASCIZ (1S><1e>/RHbC = 7 

10116 942174 78S: 

10117 2174 013746 00233C MOV aeCC, -(SP) GET READY TO TYPE RHCC CONTENTS 
10118 Basho 104401 TYPOC 

ipi2d 

10121 o42202 104400 042210 TYPE +4 TYPE ASCIZ STRING 

10122 O42206 OO0406 BR 95 *:GET OVER THE ASCIZ 

10i23 ::.ASCIZ (15><12>/RHECI = 

10124 o42224 79S: 

10125 O42224 01374 002324 MOV asEC1,-(SP) GET READY TO TYPE RHEC1 CONTENTS 
10126 2230 104401 TYPOC 

ies 

10129 O42232 104400 O42240 TYPE +4 ;;TYPE ASCIZ STRING 

10130 O42236 000406 BR :*GET OVER THE ASCIZ 

10131 +s .ASCIZ ¢15><12>/RHEC2 = 

10132 o42254 80S: 

1 133 2254 013746 002326 MOV aBEC2, -(SP) GET READY TO TYPE RHEC2 CONTENTS 
101 2260 104401 TYPOC 

ie 

10137 O42262 104400 042270 TYPE +4 ;;TYPE ASCIZ STRING 

10138 O42266 000406 BR bis sAGET OVER THE ASCIZ 

10139 +3 ASCIZ 415><12>/RHOT = 7 

10140 042304 B15: 

1014i 042304 013746 002320 MOV aeOT, -(SP) sGET READY TO TYPE RHDT CONTENTS 
10142 042310 104401 TYPOC 

rate 

tpiue 042312 104400 042320 TYPE +4 ; TYPE ASCIZ STRING 

10146 042316 000406 BR 25 GET OVER THE ASCIZ 

1014 33.ASCIZ (15)<12>/RHSN = / 

10148 42334 825: 

10149 042334 013746 002322 MOV JaSN, -(SP) GET READY TO TYPE RHSN CONTENTS 
19180 042340 104401 TYPOC 

10152 oO42342 00S037 041404 CLR asPRITEM ;CLEAR PREVIOUS ERROR ITEM 
10153 O42346 TYPERR: 


10e 
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10158 gueaue sounoo 001221 TYPE SCRLF "CARRIAGE RETURN” & “LINE FEED” 
101 2 10046 MOV RO, -(SP) : SAV 
101 2354 CLR RO PICKUP THE ITEM INDEX 
101 35 700 001114 BI B 2451 TENB, RO 
101 l 5 iF ITEM NUMBER IS ZERO, JUST 
101 HE PC OF THE ERROR 
19160 042364 O16746 136526 MOV SERRPC, -(SP) fe FOR TYPEOUT 

%. . 
Gigs 042370 104401 TyPOC = i60 TPE -~OCTAL ASCII(ALL DIGITS) 
pie Bas 3oq ries 1S: DEC RO ‘ADJUST THE INDEX SO THAT IT WILL 
ibe et RSL RO : WORK FOR THE ERROR TABLE 
1016 006300 ASL RO 
10168 062700 001224 ADD 8SERRTB sFORM TABLE POINTER 
1OIES BuSuia Geeas7 patdoM CHP sR dAPRITEM ©»: WAS PREVIOUS ERROR 
urea te Rosas ahs 13 (rov+ {BOP RG AvER CEN AND DH 
10172 pisuse 000420 BR ss . 
1ptoa 19823 Bdaoo4 138: MY RRADRPEETEN —sBRUE eE 
ibiee rtrd eo 0OU se tCKIPUTYPEOUT Ir RO POINTER 
i face tole a Thal ese BSI cors ser 
10178 1 001221 TYPE SCRLF 7 eer “LINE FEED” 
ii face fire Sy ee ee eo 
1B 4S vApRo 0 iT a HERDER POTN GOES HERE 
10183 i 001221 : TYPE SCRLF j CARRIAGE & "LINE FEED* 
101 10146 cs: MOV Ri. -(SP) *SAVE RI 
10185 CYPYEY 612001 HOV (R0)+, Rl i PICKUP “DATA TABLE® POINTER 
ie fa Yee we me Elie ig eg Pore 
10189 O42474 001003 ‘ BNE 7§ ‘BR IF DECI 
10190 pied? 013146 Q(R1)+, -(SP) ie hve a(R1l)+ FOR TYPE 
isla 104401 TYPOC i :G0 =-OCTAL ASCII(ALL DIGITS) 
101 7S: 
10194 013146 MOV Q(R1)+,-(SP) —; 3(R1)+ FOR TYPEOUT 
ible 1 ll es: ter cr ee TNERE BIOTHER NUMBERTE SGN 
isle esis OOM a te Blt) sonces 
10138 pices BR bg eh 
1020 012601 Qs: MOV (SP)+. RI *RESTORE R1 
itebe Bisse 012600 108: HOV (SP)+, RO j CARRIAGE RETURN” & “LINE FEED” 
1060s Biseso renin 000 11S: -ASC12 47 *TWO(2) SPACES 
ite0e 3 POTTTTETTCTITTT TTT TTTTTTTTTTTT TTT TTT TTT TTT TTT TTT TTT TTT TT TTT TS Ty 
1 : RARSUEMSE LASERS SHEER RES SEA EEKEREARERE BRL ESREARE RE REEL SEERA RE RRERSREE 
iste : KREKERMRSRURELA RSE RERERAELAERS EEL RAESEURE SSK MESS RERERRRERARRER 
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iI? .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
10812 seTHIS ROUTINE 1S USED To. CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
i ; #STYPOS-~-ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
it31e ee ros SOLE FOR TYPEOUT 
19818 ii -BvT N ssNet 19 FOR NUMBER OF DIGITS TO TYPE 
10220 : : rr" "ss LeTYPE LEADING ZEROS 
Gee! i ::O=SUPPRESS LEADING ZEROS 
es j ESTYPON--— ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
aus oe 
10826 ‘* MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
i if TYPON CALL FOR TYPEOUT 

0228 ° 
10889 :#STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
10230 ; #CALL: 
10231 +H MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
ines I TYPOC ;;CALL FOR TYPEOUT 
1 042534 017646 000000 STYPOS: MOV a(SP),-(SP) :PICKUP THE MODE 
10e% O¥eS4O 116667 000001 000211 MOVB (SP), SOFTLL * LOAD ZERO PILL SWITCH 
ites? Sees rik 00002 AOD #2, { OED RDgUST ADORESS 
10239 BO 112767 000001 000171 STYPOC: MOVB 81,SOFILL ;;SET THE ZERO FILL SWITCH 
10240 112767 000006 000165 MOVB : +1 *:SET FOR SIX(6) DIGITS 
10241 116767 000005 000154 STYPON: MOV "SOCNT SET THE ITERATION COUNT 
10242 10346 MOV »~ (SP) 33 R3 
ea fer ol my ce) ae 
ites 1 1 000145 HOVE $0 +1,R4 +:GET Te NUMBER OF DIGITS TO TYPE 
ipS § ADD 86,R4 js SUBTRACT i FOR MAX. ALLOWED 
1 10467 132 MOVB RY 33 IT Fi 
1 16 125 MOVE SOFILL,RY + GET THE ZERO FILL SWITCH 
te iy i a es 
ig 1 1S: ROL ::ROTATE NSB INTO “C™ 

| ee 
10. 1 2S: BR BB RRS THIS DIGIT 
10255 105 ROL RS 
my Eero 
1 1 3$ ROL RR ;;GET LSB OF THIS DIGIT 
1Ges 105367 000076 DECB SONODE ii TYPE THIS DIGIT? 
ites) 177770 Bre #177770,R3 *3GET br OF JUNK 
1 1 4§ ;; TEST FOR 9 
10263 TST RY ; SUPPRESS THiS 6? 

10264 042674 001403 BEQ S$ -:BR IF YES 

10265 042676 005204 4g: INC RY DON’T SUPPRESS ANYMORE 0’S 
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10271 Q4e7e4 


EERE BARES SRS 
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BINARY TO OCTAL (ASCII) AND TYPE 


;;MAKE THIS DIGIT ASCII 
;;MAKE ASCII IF NOT ALREADY 


118 vee rH Bforr 
11 BR IF MORE TO DO 
t PNGURE LAST TQICIT. ISN" T A BLANK 


ft Ss 
j $RESTORE RY 


iiRey PE Stack FOR RETURNING 


+ OE Oance FOR ASCII DIGIT 
{TERMINATOR FOR TYPE ROUTINE 
{}OCTAL DIGIT COUN 


i AORBER OF BI ie, TO TYPE 


tlt | a 8 MACY11 27(732) 30-DEC-76 10:30 PAGE 201 
DERPUB .P BINARY TO OCTAL (ASCII) AND TYPE 


i 5 BEE 99 9 EEE 9 9 J 9 A EE 
10288 -SBTTL TRAP DECODER 


i OTe OO He Ta 2 eR 


DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 


300 TO THAT ROUTI 
OYE a MOV RO, -(SP) $3 
134 Bieres Bibeos coooge Rov e($P),RO {GEV rake pores 
eR ere ee a a RTE 
i ON FOR INDEX 
042776 016000 043094 MOV STRPAD(RO) ,RO ; INDEX TO TABLE 
043002 000200 RTS RO G0 O ROUTINE 


-SBTTL TRAP TABLE 
;#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE “TRAP” INSTRUCTION. 


BeSRRSBeeese 


; ROUTINE 

call Ba3004 STRPRO: - CALL= (1 ) TTy NE 
Bt BuPSe STyPOC $s ett =TypoC TRapti (164401) TYPE OCTRL NUMBER (WITH LEADING ZEROS) 
G314 043010 042534 STYPOS ;;CALL= TRAP +E 1ONO8 TYPE OCTAL NUMBER (No 
Bate eat R30 STyPbe ti CALt=TyPDs Thapsacioaupas Tee DECTRAL FUPEER 
0317 043016 SROCHR ;;CALL=RDCHR = TRAP+S(10440S) TTY TYPEIN CHARACTER ROUTI 
0318 04 SROLIN ;}GALL=ROLIN TRAP+ (104406) TTY TYPEIN STRING ROUT INE 

Bu30e4 836250 WAIT. T beete tehar TRAPS 10¢109410) DONT ADD ABOvE 


Rt bt hs Pe be he = = ht ft he Ps he Rs Be = pe em ee fo fo ee 


BRSES 


Baas 


-\ = - 
AtAtA 
AtAtA 

AT Y 
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-—\= 

ATA 
t 

= 


Pm be f= Fo bb bh hs en = ew be ee fe Bae b= be em bp he es ee Be hh pe ho b= pe 
A 
4 


RRR 


WGI) GI) II WI II 0) CI I) GC CII GI 
ee ee ee 
SRERENSKESSRERGS EHSLS 


PEPLPELEPEPLELELEPLLLL LSE 


eee ee; 


“POWER DOWN ROUTI 
043154 00024 : MOV as LLUP SIPHRVEC -SET FOR FAST UP 
000340 90006 0 gaPHRVEC* *PRIO:7 
oe ee Gata * {PUSH Ro ow stack 
MOV RL, ~( 3} Pua 23 ON et K 
RY asta) HIB Sra 
MOV RS,- (3p) Hitt RS oN TACK 
000076 MOV SP’ SSAVRE SAVE SP 
043074 00024 HOV. SSPWRUP, J8PWRVEC’: ;SET UP VECTOR 
BR -2 ;;HANG UP 
-POWER UP ROUTINE 
000060 $PWRUP: MOV SSAVR6, SP ;;GET SP 
000054 CLR SSAVRE >:WAIT LOOP FOR THE TTY 
000050 1S: INC § WAIT FOR THE INC 
BNE 1 110E 
MOV (SP)+,RS HF NTO RS 
MOV (SP)+)R4 POP STACK INTO RY 
MOV (SP)+/R3 POP STACK INTO R3 
MOV (SP)+,Re 3 iDOE Tie NTO Re 
MOV (5P)+/R1 HH T NTO RI 
MOV (SP)+ RO. hee, TACK INTO RO 
043026 000024 MOV DSPWRVEC UP POWER DOWN VECTOR 
000340 o00026 MOV #340, J8PWRVEC+2 ;:PRIO:7 
TYPE cPont POWER FAILURE 
a1 SPWRMG: .WORD SPOWER AIL MESSAGE POINTER 
12716 MOV (PC)+, (SP) RESTART AT BEGIN 
broods SPWRAD: gHORD BEGIN 1 RESTART ADDRESS 
SILLUP: HALT THE POWER UP SEQUENCE WAS STARTED 
000776 BR 2 :: BEFORE THE POWER DOWN WAS COMPLETE 
000000 SSAVRE: 0 1 ob THE SP HERE 
005015 047520 o42527 SPOWER: .ASCIZ <15><12>"POWER” 
000122 sett 
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5 HERE EAEHEHE HESEEEE  E E HEESEEAR SEH EHEEE E E AEHEEHE E  EEE EE 
: 

;ERROR AND MESSAGE TABLE CONDIMENTS 
WITttiLiLilitlerelereritiereree rere rier ere re ree rere rr er eee re Perro rere 


043172 EMI: -ASCIZ /RPOY DID NOT INTERRUPT/ 


ae 
—h 
2 
tu 
2 
Oo 


a 


Bisid EMe: -ASCIZ /INTERRUPT ENABLE BIT DOWN BUT EXPECTED BIT DID NOT SET/ 


BBz bbe 
28S2RSe 


anase 
mee 


-ASCIZ /RPOY DID NOT INTERRUPT WHEN EXPECTED BIT DID SET/ 


2? 

n 

z 
sf 
ro 


: 
229 
2 
Re 
=e 
22 
25 


= 
-_ 
~ 
R 
Z 
R 
iA 


EM4: -ASCIZ /EXPECTED BIT DID SET BUT TIME IS IN ERROR TIME IN 10 MICROSEC. DECIMAL/ 


22 22LEL 
Bishan esos 
PRPPRERE 
RSSSR08 
penis 

= 28 

R 


SUNOS 
2 222 
3s 
nae 
a 


a a a ee ce ne et er ee or 
+ | 
= 
= 
he 
8 
— 
ot 
= 
N 


0410 051501 O4%e040 EMS: -ASCIZ /RHAS DOES NOT CLEAR BY MOVING IN ALL ONES/ 

O411 043506 O42517 Ge0le3 047516 

mils 4 020124 O461 

041 Be01 44 

0414 05311 7111 107 

O41S 043536 047111 O4O44O 046114 

O416 O439544 O4744O 042516 000123 

ie a roi mat port EME: -ASCIZ /LOADING RHER1 FOR ALL UNITS DID NOT SET ANY RHAS BITS/ 
18 1 1} 

0419 O04 1 047506 OeDlee 

O4e0 049574 046101 020114 047125 

O4¥el 043602 OSelil Oe0le3 O44SO4 


ene er ae eee ree eee 


BOS 
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DVA=1, RDY= 


“STOPPED DRIVE HAS MOL BIT IN RHDS1 SET/ 


: 
: 
! 
: 
: 


-ASCIZ /WITH SPINDLE POWERED, NO INTIALIZE, RHCS1 SHOULD HAVE GO=0, 


-ASCIZ /SPECIFIED REGISTER NON EXISTANT, SO ABORT PROGRAM/ 


-ASCIZ 


30-DEC-76 





ary 


Y1l 27(732) 
UP ROUTINES 
zi 
it 
+ 
110 EM11: .ASCIZ /WITH SPINDLE POWERED DOWN RHCS2 SHOULD ONLY HAVE UNIT NO: AND IR SET/ 
1 
i 
101 
11 
1 


: 
| 
| 


« 


aaa in abe Swi ew UGY dats - SiO eT AUR SS ett EAU URS SECA ARGS 


ye seeeerseeeeeereres ists ees tires ease see teats cece eens 


° FI I I Oh ah ed md a Od dG PG ORG hd Hh Hd Hd OG HF Od md Hd Od RG Od Md ORG GG ad ed Om a hd ad ed a Od 





COMMAND/ 


03 


L 
7GO0D DATA IS BEFORE COMMAND, REC DATA IS AFTER COMMAND/ 


-ASCIZ /GOOD DATA IS BEFORE COMMAND, REC DATA IS AFTER COMMAND/ 
7GO0D DATA GIVES SHOULD BE, REC DATA GIVES AFTER 


-ASCII /PACK ACKNOWLEDGE COMMAND CAUSED AN ERROR/<15>< 12> 
-ASCII /ORIVE CLEAR COMMAND CAUSED AN ERROR/<15>< 12> 


-ASCIZ /AFTER SPINDLE POWERED UP RHCC SHOULD BE=0/ 


-ASCIZ 


10S EM14: 


Die 


16) EM16: .ASCII /NO-OP COMMAND CAUSED AN ERROR/<15>< 12> 
116 


SP-~BNPoghe= 
“geaes 
ont 


piiseesssssssa sss ha aa Vi cuiicnicnouiemememmm nnn 


OG I ed I ay ed ad Od Oh dd ah Og Od ad od ed Od ORG ad ah ng a Od hE a ad dd a a nd ad dg Od Od oh dd oh OH 


wn 
oO 
cu 
las 
3 
az 
a. 
Oo 
“ 
Q 
_ 
Ws) 
~ 
t 
© 
VT) 
- 
muy 
- 
ne 
Hi tes 
oO 
ta 
= 
ws 
=2 
# 
4 
nn 
Qe 
ri 








7GOOD DATA GIVES SHOULD BE, REC DATA GIVES REG. CONTENTS AFTER COMMAND/ 


/RHCS1 CONTENTS OURING COMMAND WAS IN ERROR/ 


/READ-IN COMMAND CAUSED AN ERROR/<15)<12> 






-ASCIZ /GOOD DATA GIVES SHOULD BE, REC DATA GIVES REGISTER CONT. AFTER COMMAND/ 


-ASCIZ /RHDS1 CONTENTS DURING COMMAND WAS IN ERROR/ 


-ASCII /UNLOAD COMMAND CAUSED AN ERROR/<15><12> 






ee 
Co 
Oo 
cu 
Lv) 
go 
az 
a 
oOo 
ye ed ™N 
3 7 S es 
wn w 2 
0 “ a 
i 
1 
oO 
tay oe Ld 
‘i a 
ao 






EM22: 
4 EMe3: 


: sel Mlk an : 


i 8 ee EAS TE SSE STE bet a 7 | 


SAMAR YRRER RES a BREEZE | 
or ro geet eee eee ee eee see e ee SETS SES SESSA TT SESS TSS : 
Ee dudedanmmannmmnndundaad _ vin. cement 


GOG6O6660666000055505500000666 a a ed ed gt ee SN ee 
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04651 


Giee Grie pes 


(Bee? puevee ono? BuStAe 04 EM24:  .ASCII /OFFSET COMMAND CAUSED AN ERROR/<15>< 12> 
108392 o4S47e 020124 047503 4 


-ASCIZ /GOOD DATA GIVES SHOULD BE, REC DATA GIVES REG. CONT. AFTER COMMAND/ 


pa taaa saa ereer yy 


-ASCII /RETURN TO CENTER LINE COMMAND CAUSED AN ERROR/<15><12> 


Bt fas fan Ba fine Gan fiw fit hee fo pos fae Peo Pm fiw Boo bis Ga P= Pio b= 
o 


RRRRRK 
inewre 


- 
& 
-_ 
o 


-ASCIZ /GOOD DATA GIVES SHOULD BE, REC DATA GIVES REG. CONT. AFTER COMMAND/ 






RR 
—— 
won 


= pe peo pe 






oF 
= 
= 
at 


BERE 
4 
¥ 








bas pe bane Pan be 


i 

+ 

os 

+ 

= 

iS 

-i = 
A 










-ASCIZ /SO0 OFFSET COMMANDS ONE AFTER THE OTHER CAUSED AN ERROR/ 


‘aA 
~- 
A= 


- = 

i 

-". 
* 






225 


zo 












"+ 








/WRITE HEADER AND DATA CAUSED IMPROPER REGISTER CHANGE/<15>< 12> 


Buittensada ants 


rary 


F 







ugh, 





Bt a Bt be Fe bane Pe bee 4 Gs be Ot Ot fe he 


aioe 








“WRITE HEADER AND DATA CHANGED WRITE FROM BUFFER/ 


& 
= 
= 
& 
Q 
B 
2 
s 
z 
3 
i 
2 
2 
zs 
a 
3 
e 
& . 
a 
2 
# 
g 


-ASCII /READ HEADER AND DATA CAUSED IMPROPER REGISTER CHANGE/<15><12> 
/RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/ 


-ASCIZ /RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/ 


-ASCII /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><1e2> 


-ASCII /GOOD DATA GIVES WHAT SHOULD BE THERE/<15>< 12> 


lia 
oO 
wu 
la 
3 
« 
a. 
Q 
” 
S SS SS es 
oO « « <= 
T 
YQ 
tay . 28 * 
& ~ 
é a a 2 
m ui 


OUTINES 
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f8 2PPnes 4a=ouens es 
a “4 oy end, | ben bom ban bon ie | 4 
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POWER DOWN 
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err 


888 eR wed ma a gd ah a a mh a eh hh hh hd hh td 
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“READ DATA CAUSED IMPROPER REGISTER CHANGE/<15>< 12> 


a 
; 
td 
: 
5 
: 
3 
: 
s 
S 
& 
; 
% 


-ASCIZ /RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/ 
-ASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/ 


-ASCII /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


-ASCII /GOOD DATA GIVES WHAT SHOULD BE THERE/<15>< 12> 









= : 
Go « 
~ S 
rd 2 
2 & 
: eit Le 
2 Bees ame pater = st glass © 
Lo ee 
5 z Bia Wesueas vena | 
ac o S =c% zs ft 5 : 
| oll Meebo taeaaye” tallied Wcaretator coed cats 5 | 


saloiasvestetenene pr eeaereeeene 
BEER ERRES es P RRR REPEL ROE RERIRE EE 


Ed Sh dd Od Oe OE Od nd et nd rd ed ed ed ed ed ed Od me ed ed ed ed ed ed ed ed ed Od ee a Od bd dh ed eh 
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F 
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oO 
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a 
ge 
tJ 
eH 
ua 
az 
w 
eH 
= 
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eK 
=z 
=) 
oO 
ge 
J 
rm 
w 
we 
# 
w 
ua 
= 
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Oo 
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a 
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w 
Le 


-ASCII /SEEK COMMAND CAUSED IMPROPER REGISTER CHANGE/<15>< 12> 


-ASCII /WRITE CHECK CAUSED IMPROPER REGISTER CHANGE/<15>< 12> 
-ASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/ 


-ASCIZ /WRITE DATA COMMAND CHANGED WRITE FROM BUFFER/ 


-ASCII /GOOD DATA GIVES WHAT SHOULD BE THERE/<15>< 12> 
-ASCII /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


EM4O: 


EM36: 
EM37 


2 See eee sae ies 
aeremivien bee ticettasir mene! bok 
aadeas tatay tata : 


MeddcUdaretiadeduuy. Lee tm REEREE — 


SSS Hd Ey 565665445845845 


sguGucauduuadSSSSSSSSSsasususssq4sssaseeae (ihe cbLe eben e 


BE eh mm RS a gh ed dd dd a a) ad md a dh dd ed a dd a ed ad ed ed ed dd hd Ed ed a 
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-ASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER WRITES WERE LOCKED OUT/ 


-ASCII /GOOD DATA GIVES WHAT SHOULD BE THERE/<15>< 12> 


EM41: 


eet frat he ae = a 
can OE am 
pane aLE z §euea8 








Stes Bd Rea ier: ken Ate: 
3 Beso ohags 
i RSE 
sane recaps 
— aaaeaaae aaa IOLA Ki Mets Siearat 
Bininnniein 
<aceeRNRREREEETES 


I Gh Gd eh hd a eh hd Oh ed i hd gd Od dd md Hd ed 





-ASCII /ATTEMPTING TO WRITE WITH WRITES LOCKED OUT CAUSED IMPROPER REGISTER CHA 


-ASCII /GOOD DATA GIVES WHAT SHOULD BE THERE/<15>< 12> 


M42: 


ca 
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en 933 


eed ed ed ed eg ed HH tot 
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042510 


Oy 


23 


ae 


RRRREBS 
eee 
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QWaRSNs 
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! 047514 
1 
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oners 041040 
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Re 
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-ASCIZ 


EM43: .ASCIT 


-ASCII 


-ASCII 


-ASCIT 


-ASCIZ 


EM44 









/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED WRITE/ 


“WRITING WITH WRITES LOCKED OUT CHANGED DISK DATA/<15><12> 


/GOOD DATA GIVES WHAT WAS ON DISK BEFORE WRITE WITH WRITE LOCKED OUT/<15 


/WAS ATTEMPTED/<15><12> 


“RECEIVED DATA GIVES WHAT WAS READ BACK AFTER WRITE/<15><12> 


/WITH WRITE LOCKED OUT WAS ATTEMPTED/ 


ZENABLING WRITES BY WRITE LOCK BUTTON CAUSED IMPROPER REGISTER CHANGE/<1 
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-ASCII /RECEIVED DATA GIVES REGISTER CONTENTS AFTER WRITE LOCK BUTTON/<15><12> 
/RECEIVED DATA GIVES REGISTER CONTENTS AFTER TRANSFER/ 
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-ASCII /GOOD DATA GIVES WHAT SHOULD BE THERE/<15>< 12> 
-ASCII /GOOD DATA GIVES WHAT SHOULD BE THERE./<15><12> 


-ASCII /CAUSED IMPROPER REGISTER CHANGE/<15)>< 12> 


-ASCIZ /ENABLED WRITES/ 


-ASCIZ 


EMYS: 


clasts Grete ggeieatame ge ieeeutes seta! geurca eae 
uivacrisanes’ © a : 
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pe 
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uaRenaeee= =A AIRES SUED EWS CABAEMESORS geegayens 
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Bil EM46: .ASCII /DATA READ FROM LAST BLOCK - CYLINDER 410, SECTOR 21, TRACK 18/<15><12> 
151 


1 
0997 
ie 


RARRR 
pm pop fee 
Season 
-_ 
o 
-_ 
~“N 


le 
perils -ASCIZ /IS IN ERROR/ 
111 
001 pes ceieie EM47: .ASCII /TRANSFERRING DATA FROM NONEXISTANT SECTOR CAUSED IMPROPER /<15><12> 





fet Pt es ee tee 
me 

pao 

— 

NN 


: 
: 


SeSRRaon 


Ze 


010 
01 . 
Big tie -ASCII /REGISTER CHANGE, GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 
014 
: i 
1 1 
01 127 
018 440 7510 
19 O4 
10 
iit -ASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED TRANSFER/ 
440 
116 


a 


4516 EMSO: .ASCII /TRANSFERRING FROM NONEXISTANT SECTOR CAUSED DATA ERROR/<15>< 12> 


Qo be Ba es Bee Bs Ba Bb ee Ge bs Fs bn Bet ae fn Be fet Re Bm ne Be face na Be ee fe Bee Bs ee Pt he ee fe fe ee Be ee Re 
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AND UP R 
1 7524 
Sir BUS Te 
0Se4 1 e040 052101 
020 04752 


22938 
S 


0Se426 101 i e 
peaya? 75 04 5 020104 -ASCII /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 
1 Bite 
1 114 1040 
020105 O44124 051105 
006505 Ole 
1 i 1 -ASCIZ /BAD DATA GIVES WHAT WAS IN BUFFER AFTER TRANSFER/ 
1 127 
101 1S01 


EMS1: .ASCII /GIVING ILLEGAL FUNCTION CAUSED IMPROPER REGISTER CHANGE/<15><12> 


co fat ee 

fae be 
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ts 


104 -ASCII /GOOD DATA GIVES WHAT SHOULD BE THERE/<15>< 12> 


= 
BR 


-ASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER ILLEGAL FUNCTION IS GIVEN/ 


~“ 
ps fem fe ee 
— bes 
ERR 


RRRIRRBEIS ISAS IASSUE CRE ERR PE OU ON NUDRAD IE tea toe 
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EMS2: .ASCII /WRITE DATA ON NONEXISTANT SECTOR CAUSED IMPROPER REGISTER CHANGE/<15><1 


Be ee Bt bene teen ame sb bee eat Bt Be Bn oe fn at Pet ee et B+ Bt Be Pm te ee me he bo BO Bt fh bs ps fe eo bn ha be fe ee be pon Bo pe Be pe pe a pe 
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ASCII /ATTEMPTING COMMAND WITH INVALID ADDRESS CAUSED IMPROPER REGISTER CHANGE 
/RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION/ 


.ASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED WRITE DATA/ 
.ASCIZ /READ HEADER AND DATA AFTER A SEARCH CAUSED DATA ERROR/ 


.ASCII GOOD DATA GIVES WHAT SHOULD BE THERE/<15><1e> 
.ASCII /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


-ASCIZ 


EMS3: 
EMS4: 


i Ha Uh 
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ae 
au 
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